wee =_ -Punch along this edge for insertion into a binder- 


OUR NEW POST OFFICE BOX IS 319 PLEASE RENEW FOR EIGHTY-TWO 


FOREIGN CHECKS MUST BE IN U.S. DOLLARS AND MUST BEAR MAGNETIC INK COMPUTER READABLE (MICR) CODING. 


HOW TO POWER-UP INTO A RUNNING BASIC PROGRAM 
Another frequently asked question is “How can we arrange to have the SYM 
power-on-reset either to BASIC, or directly into a working BASIC program 
(i.e., in the RUN mode)? The answer to this extremely important 
question is the subject of our lead article: 


THE 8 ¥ote= 2 USERS” GROUP NEWSLETTER @G1G ; Example of a power-on-reset program to start up- 
VOLUME II, NUMBER 4 (ISSUE NO. 18) - WINTER 1981 (OQCT/NOY/DEC) #820 3; and-running in a BASIC program, i.e., a “turnkey” 
evecuvers 4 Kees ere 5 Rive S02 1D > Gr P. 0 OH3G 3 system. If you wish to "pretect" your program, the 
= is a quarterly publication o e bd sers oup - O. as % i , : 2 i A - i 
Box 319; Chico, CA 95927. SYM-PHYSIS and the SYM-1 Users’ Group’ (SUG) ets) & Basteae way fe Rocce Sere eee 
are in no way associated with Synertek Systems Corporation (SSC), and @95% ; until they are called for, and write a "guar 
con nee ao Epapenesh ik) S foc SN soe tees . SYM is a 959 3; input routine to prevent return to the direct command 
registere rademark 0 . Fg _ From e eek, means e @979 ; mode on a <cr> reply to an input request. The BREAK 
state of growing together, to make grow, to bring forth. O08 ; key will also cause a return to the direct command 
kof ar ltl la Waal chi all ental Gent in with any mepeek of Hg @99G ; mode, but if the keyboard has been locked out by the 
=i an its very close relatives. uthors retain a commercia . “ - 
coe yt auee. Portions of SYM-PHYSIS may be reproduced by clubs and edu- iggy 3 POKE only RESET can restart the program 
cational institutions, and adaptations of programs for other computers @11e 
may be freely published, with full credit given and complimentary copies 120 ; IT MIGHT BE A GOOD IDEA FOR TROUBLE SHOOTING TO BUILD 
pr yiGee to m Lue § ane eee ee ane es Please include a @13@ ; IN A "SECRET KEY" TO PERMIT EXIT TO SUPERMON. ONE WAY 
So, = | resse stampe envelope wi a orrespondence. 
P n ee ae 9146 ; IS TO ALLOW A SPECIAL INPUT SEQUENCE TO CAUSE A JUMP 
Editor/Publisher: 4H, Re. “Lux” Luxenberg @15@ 3; TQ A USR(USRENT,®@). 
feared ag de i ; Jean Luxenhberg 9169 
SERRE ACPA S on Batre. Sack Obervic 917@ ; This program may be tested in RAM, at any address, 
9188 ; from SUPERMON, by .G TURNKEY, to simulate reset. 
SUBSCRIPTION RATES: (1982, Issues 11 -— 14, Volume IIT) G19@ 
USA/Canada - $19.59 for a volume of four issues. Elsewhere — $14.99. B200 ; SUPERMON ADDRESSES 
Make checks care in US dollars to “SYM-1 Users’ Group”, P. 0. Box B21B 
319, Chico, CA 95927, Telephone (916) 895-8751. @22@ INCHR .DE $8A1B Input character 
BACK ISSUES ARE STILL AVAILABLE AS FOLLOWS: 8230 OUTCHR -DE $8A47 Gutput character 
ae ae eee eee “t1999). © a3 iti et , 9249 TOUT ~DE $8AAG Terminal character out 
ssue ? e éntroductory issue san Ssues LB 789 @25@ ACCESS DE $8886 Unprotect SYSRAM 
ble, K 2. . -, ' 
Breer hell eLeeMer en eee Cr MRR SRes Vesbenalns “ANd TEER Firat @268 VECSW .DE $8BB7 Default I/O terminal vectors 
; aes ee are ehend a ; $278 DFTBLK -DE $8FAg Default table 
ssues roug olume are available, as a package or i 
$10.50, US/Canada, and $14.98, First Class/Airmail, elsewhere. rte RES «ROM Annet 
B3OD 3 SYSTEM RAM ADDRESSES 
THE MYSTERIES OF BAS-1 REVEALED! (OR AT LEAST SOME OF THEM) G31B 
SS ee a Gna ee ee Se @329 SYSRAM -DE $A626 RAM above SCPBUF 
The following questions asked by James Blackshear have been asked by @33G SDBYT .DE $A651 Baud rate constant 
many readers, and if not specifically asked, must at least have occurred 349 SCRA ~DE 8A63A Scratch 
to many others: @35@ TOUTFL -DE $A654 Terminal I/O flags 
B36B 
"I would like to know more about BAS-1. What is on page zero, how can O37G ;: SYSTEM RAM VECTORS 
we use it, and where are the useful routines in BASIC? And, is there a a3zaa 
source listing (‘commented or not) available, and if so, how can we get G39@ INVEC -DE $A669 
ahold of it?” 949@ QUTVEC »~DE $A663 
G41a 
To answer the second question first, the source code for BAS-1 is G420 ; SYSTEM I/O ADDRESSES 
proprietary to Microsoft and its licensee Synertek Systems Corporation 9438 
(the first time we visited Jared Larsen at SSC, we observed a listing of 2449 PCR1 -~DE $A@9C 
the source code on a desktop, and started to leaf through it, but it was G458 
removed and placed out of our reach!). Publishing a complete @46@ ;AND NOW, HERE WE GO! ! ! ! 
disassembly of BAS-1 would permit readers to by-pass purchasing the B47H 
ROMs, thus reducing potential sales by the copyright owner. Thus the 48a .BA $9886 Or wherever, in any EPROM 
answer is NO!!! BAIS -OS 
95GB 
On the other hand, an incomplete listing would still require the reader 9860- AZ FF 9519 TURNKEY LDX #$FF Initialize stack pointer 
to purchase BAS-1 in order to obtain a working BASIC. So, to answer 98G2- 9A 9528 Txs 
Jim’s first question, we are publishing a partial disassembly of BAS-1, 98@3- AI CC 9539 LDA #$CC 
and, in the article "MEAN14 FOR THE SYM", information on entry points 9895- 8D GC AS 954g STA PCRI Disable POR, tape off, etc. 
for most of the floating point arithmetic subroutines. This information 9R8a8- AS B4 55a LDA #¢@4 Zero flags, and disable IRQ 
should provide a useful starting point for owners of BAS-1 who wish to 98@A- 48 9568 PHA 
proceed with their own "reverse-engineering" of BAS-1. 98@B- 28 9578 PLP 
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980C- 
980F- 


9811- 
9814- 
9817- 
9818- 


981A- 
9B1C- 
9B1F- 


9822- 
9825- 
9828- 
982B- 


9B2E- 
9BIB— 
9IBIS— 
9835-— 


9838- 
9B83A- 
983D- 
983F- 


9842- 
9844- 
9847- 
9849- 


984c- 
984E- 


9851- 


9854- 
9857- 
9859- 
985C-— 
985F- 
9862- 
9865- 


9868- 


986R— 


2 
A2 


Ag 
28 
Ag 
20 


A? 
8D 


4c 


38 
32 
38 
Se 
S3 
26 
3a 
22 


29 


Ag 
2 


Fv 


OL 
Si 
B7 


62 
3a 
61 
3A 


7E 
61 
88 
62 


54 
FA 
93 
FB 


1B 
47 
45 
47 


2) 
54 


ae 


31 
@D 
36 
3D 
52 
22 
33 
2C 
@D 


8B 


8F 


AS 


3 


8 


8A 


9358S 
9598 
DBEDD 
B518 
B528 
B63 
B49 
BOSH 
B66H 
BETH 
G58S 
B69 
D7BD 
B71B 
728 
G738 
B74D 
B7S5B 
B76B 
9778 
D788 
B79 
DBDO 
6818 
9829 
9836 
BB4B 
®B5B 
BBS 
9879 
88H 
B899 
BIDBD 
BI1B 
BI2B 
B93 
DI4D 
BISB 
H969 
BI7D 
9986 
BIDS 
1DDBD 
1G1@ 
192 
1938 
1946 
1958 
1868 
1979 
1988 


1898 
1190 


1119 
1128 
1138 
1149 
1158 


JSR ACCESS 
LDX #4$5F Init SYSRAM using defaults 

your choices for default values could 
and moved to SYSRAM 


3As an alternative, 
jbe stored at the "top" of this EPROM, 
3from there 
XFER LDA DFTBLK, X 
STA SYSRAM, X 
DEX 

BPL XFER 


Avoid necessity for log-on 


LDA #691 
STA SDBYT Set baud rate to 4896 
JSR VECSW Set default terminal vectors 


3Prepare for "EXECUTE"-type command 
INVEC+2 

SCRA+1 

INVEC+1 

SCRA 


LDA 
STA 
LDA 
STA 


LDA 
STA 
LDA 
STA 


#L, RIN 
INVEC+1 
#H, RIN 
INVEC+2 


LDA 
STA 
LDA 
STA 


#L, EXEC 
$FA 
#H, EXEC 
$FB 


yChange any other vectors or defaults desired here 
3Clear screen, turn off I/0 during reset 
;Omit these lines if you want to observe the process 


LDA 
JSR 
LDA 
JSR 


#27 ESC 
OQUTCHR 
#°E Clear screen for KTM-2 
OQUTCHR 


LDA 
STA 


#EDO 
TOUTFL 


IMP COGS 


EXEC 3 These values are for SK systems, no reserve 


«BY *°8192’ $@D sMEMORY SIZE? 
-BY *88" $9D # WIDTH? 
«BY * X=USR(&"8935",8)" SOD ;USRENT 


jInsert here any SUPERMON commands needed to 
smodify BAS-1 default values, e.g., TRIGPATCH, 
jLower Case Patch, etc. 


SYM-PHYSIS i935 


OFFC- 


(a0) 


98 


116@ 
117@ 


1188 


1198 


-BY ’G@" $@D 3WARM START 


-BY "X#USR(&"8BB6",4)? $aD #ACCESS 


-BY ’18@9?"PROGRAM STARTS HERE"’ #@D 


-BY °56887:7:?"’ $OD 


«BY *98997?"AND ENDS HERE... . ."" $8D 


-BY “SPOKE 42586,144" 9D ;TOUTFL - CRT 1/0 


«BY *RUN’ $@D 
- BY 


- BY 


7S” $AD 
"STS 


3;Delete Line No. @ 
$9D 


(the POKE) 


-BY $8 


3 The next two bytes MUST be in the POWER-ON-RESET socket! 
3 (and in byte positions three and four from the top, also) 


~BA $9FFC 
-SE TURNKEY 


~EN 


An alternate method of getting started is to move 
BASIC’s page zero and the BASIC program into your 
EPROM, and down load it from SUPERMON, rather than 
from BASIC, as in the example below: 


3; REPLACE JMP $C@@@ WITH JMP $890@ IN LINE 10669 


-BA $9854 
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9854- 42 36 20 146@ EXEC 
9857- 39 34 36 

9BSA- 36 20 39 

98SD- 30 45 37 

9868- OD 

9861- 42 32 3 1476 -BY "B268,9298,922F* %@D 
9864- 38 20 39 

9867- 32 3H 38 

986A- 2C 39 32 

986D- 32 46 OD 

9876- 47 38 OD 1489 -BY *G@" $@D 

9873- 58 3D 55 1496 -BY * X=USR(&"8B86",8)" $OD 3 ACCESS 
9876- S53 52 28 

9B79- 26 22 38 

987C- 42 38 3% 

987F- 22 2C 3B 

9882- 29 SD 

9884- 52 55 4E 1506 «BY ’RUN’ $@D $29 
9887- GD 8 


-BY *BO,9988,99E7" $@D 3PAGE ZERO 


;TURN OFF RIN 


15196 

1526 ; The TOUTFL POKE should be in your BASIC program. 

1538 ; The ACCESS may also be in your BASIC program. It must 
1549 ; be executed before the first INPUT, so that subroutine 
155@ ; RIN can be turned off by the $48 following RUN. 

156a 


1578 «EN 


MACHINE LANGUAGE FLOATING POINT ARITHMETIC 

Perhaps the easiest way of learning to design Assemblers, Interpreters, 
Arithmetic Packages, Data Management Systems, Disk Operating Systems, 
Compilers, etc., is to study the “works of the masters" and learn by ex- 
ample. With this thought in mind, we have been using Hissink’s DISARAE, 
and an even more powerful disassembler, to “reverse engineer" BAS-1, 
SYM/FODS, RAE-1, CODOS, and every other piece of 6592 object code from 
which we felt we could learn something new. 


We have been asked if it were possible to write a floating point package 
for the SYM. The answer is yes, but rather than starting from scratch, 
we prefer to "research" to see how others have done the job, and, to 
paraphrase Newton, "stand on the shoulders of giants". A direct copy, 
or even a "paraphrase", without permission or acknowledgement, is 
Plagiarism. An enhancement, a major modification, a synthesis of the 
works of others, a conversion to another system, published or marketed 
in such a way as not to injure potential sales of the original product 
is neither illegal, immoral, nor fattening! We will now answer the 
floating point question in our usual roundabout way: 


Apple II, the one with Integer BASIC, but not the II + with the 
Applesoft (Microsoft!) BASIC, contains an interpreter known as SWEET16. 
Interpreters of this class accept programs written in a set of "“pseudo- 
operation" codes designed to make programming easier for a specialized 
class of problems. The SWEET16 interpreter makes a 6592 system "behave" 
as if it were a 16 bit (integer) processor. 


While Apple’s Integer BASIC handles 16 bit integer arithmetic, it does 
so very slowly, compared to machine language (ML) equivalents. SWEETI6 
interprets at arate closer to ML, but is easier to program, since the 
pseudo-ops are essentially “macro"-instructions. SWEETI6 programs may 
be assembled by hand, or by a SWEET16 assembler. In fact RAE-1 has a 
"flag" at $@132 so that a SWEET16 (or any other assembler, for that 
matter) may be "patched" to RAE-1, making use of all of RAE’s text 
editing capabilities. The LISA Assembler for the Apple also includes an 
assembler for SWEET16 mnemonics. 


SYM-PHYSIS 19:5 


3;BASIC PROGRAM 


;BASIC WARM START 


MEANI4, by R. M. Mottola, works with Applesoft BASIC to provide five 
byte floating point arithmetic at least ten times faster than the BASIC. 
We have been working off-—and-on to rewrite MEANI4 for the SYM-1/BAS-1 
system, but have not yet finished the task. For those who have asked, 
we print below our INCOMPLETE conversion, leaving the completion as an 
“exercise for the student", and refer the reader to Mr. Mottola’s 
articles, cited below, for the necessary details. For "extra credit", 
why not add the trig functions as well? A good follow-up "exercise", of 
value to the entire 6542 community would be a MEAN14 Assembler. For 
SYM-1 users this should be “called” from RAE-1 by setting the flag at 
$9132. 


Note that MEM (memory lacation) is passed to the BASIC subroutines 
through the A,Y register pair. We have not yet found a good entry point 
for converting INPUT ASCII to floating point but the subroutine at SDB9A 
converts the floating point number in FPACi1 to ASCII at $9199-8019F, 
with a terminator byte of $49, making it very simple to print out the 
results. Try running a program such as: 


19 A = 123.456 : REM TRY VARIOUS VALUES 


20 PRINT A 
3H X = USR(&"BAS5", A) 
RUN 


From SUPERMON, .V 1966,1@1F <cr> to see the ASCII representation of A, 
and reenter BASIC with .G @ <cr>. Try using values for A which will 
force the “E" representation of the value. Incidentally, these (in 
addition to the stack, of course) 16 bytes are the only useage of page 
one by BASIC. The remainder of page one is yours to use. 


The combination of MEANI4 with the existing BAS-1 ROM will provide a 
very easy-to-use and easy-to-implement floating point capability 
operating at near ML speeds. 


REFERENCES: 


Mottola, R. M., "Applesoft Floating Point Routines", MICRO, August, 
1989, pp. 27:53 - 27:55. 

Mottola, R. M., "MEAN 14: A Pseudo-Mathine Floating Point Processor for 
the Apple II", MICRO, September, 198%, pp. 26:67 — 28:71. 
Wozniak, Stephen, "SWEET16: The 6592 Dream Machine", BYTE, November , 

1977, pp. 158 - 159. 


BOD ; >>>>>>> MEANI4 FOR THE SYM-1 <<<<<<¢ 


BO2B 

9930 5 SEE CITED ARTICLE(S) BY MOTTOLA FOR DETAILS 
924@ ; NOT YET COMPLETE OR OPERABLE!!!! 

9259 ; NO WARRANTY EXPRESS OR IMPLIED 

9969 ; GOOD LUCK IN FINISHING THE JOB! 

BDB7D 

BOBS «BA $9960 

BAID 


9189 3; Not yet sure where these should be placed, 
@11% ; but they are not used by BAS-1 


G120 

G139 TMPL : -DE SE9 

@14@ TMPH -DE $EA 

8158 MPCL -DE $4C 

@16@ MPCH -DE $4D 

G179 

@189 ; START BYTES OF THE TWO FLOATING ACCUMULATORS 
G19G 

9208 FPACI -DE $Bi 

@219 FPAC2 -DE $B9 
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IDOD— 
FBB1A- 
IDBS— 
9BB4A— 
IDBo— 
FBBP— 
F880 — 


BOF — 
9011- 
IBAS— 
9014- 
9B16- 
9@17- 
9918- 
9B19- 
9B1C- 
991D- 
9B1E- 
9621- 
9022- 
9925- 
9B826- 
9928- 
92A- 
982C- 
9O2E- 
9G30- 
9OS2- 
9934- 
9035- 
9037 - 
9B39- 
9O30- 
IB3C~- 
963D- 
9O3E- 
2649- 
9041- 


99 
96 
99 


98 


on 


B23G 
248 
25D 
268 
8278 
B28 
B29D 
D3BD 
O@31B 
B32 
O33 
G34 
B358 
B39 
®37B 
G38 
B3IB 
B4DD 
M410 
B429 
D438 
B44D 
BASS 
9468 
B47B 
2489 
D490 
D5BD 
95198 
9528 
O538 
GB54B 
8550 
B56B 
®S7B 
58D 
8570 
BODO 
B61B 
B62 
BOSH 
BEAD 
BESO 
DO6@ 
DE7B 
B68 
BOIB 
972O 
B71B 
@720 
D73B 
748 
B75@ 
O7 6B 
O778 
9782 
8799 
GBAB 
8818 
DB28 
MBIB 
846 
#85a 
@869 
O87 


; ENTRY POINTS 


3; MEM 


= (A,Y) 


3 MEM2 = (X,Y) 


LDAC1 
LDAC2 
FPADD 
FPSUB 
FPMUL 
FPDV1 
FPDV2 
FPRND 
FPSTR 
TR2>1 
TRi>2 
FPSGN 
FPABS 
FPINT 
FPSOR 
FPLOG 
FPEXP 
INT SFP 
FP>INT 
ASCII.OUT 


MEANI4 


GO.ON 


3 
GET.DO 


FIND. MODE 


INDIRECT 


-DE 
DE 
DE 
DE 
-DE 
-DE 
- DE 
-DE 
-DE 


FOR SELECTED BAS-1 SUBROUTINES 


= (ADL, ADH) 
= (ADL, ADH) 


$D758 
$D842 
SD64D 
$Dé9D 
$D7DE 
$DSCS 
$D8c5 
$D9D1 
$D98D 
$D9B2 
$D9C5 
SD9EF 
$DAGE 
$DAS2 
$DCFS 
$D7AG 
*DCFA 
$D14C 
$CF79 
$DBIA 


SMPCL 
SMPCH 
INC.PC 
6ET.DO 
GO.ON 


#820 
(MPCL) Y 


9$SF 
A 


SUBTBL, Y 


SUBTBL,Y 
INC.PC 


#$CO 
IMPLIED 
IMEDIATE 
#846 

ABSOLUTE 
(MPCL) ,Y 
STMPL 


(MPCL) ,Y 
&TMPH 


(TMPL) .Y 


(TMPL).Y 


SET 2COUNT 


as ee ee ee we es ee es we we es Oe es as ws Os ws es es ee 


FPACI 
FPACA 
FPACI 
FPAC1 
/ MEM 
FPACL 
FPACI 
FPAC2 
FPAC1 
SGN (FPAC1) 

ABS (FPAC1) 

INT (FPAC1) 

SQR(FPAC1) 

LOG (FPATI) 

FPAC2 ~ MEM 
£¢Y,A)] 

INT (FPACI) 

ASC$ (FPAC1) 


SENSO SESE SP ONE AES SON SION NES NE 


sALWAYS 


FPACI 
FPAC2 
FPACI 
FPACL 
FPACI 
FPACI 
FPACS 
FPAC1 
MEM2;5 
FPAC1 
FPAC2 
FPAC1 
FPACI 
FPACI 
FPACI 
FPAC1 
FPAC1 
FPAC1 
($B4,%B5) (HI, 
($190-S11F) 


CMEM2=(K,Y)] 


LO) 
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@B8S 3 
9@43- Bi 4C 896 ABSOLUTE 
9945- 48 DBIBD 
9846- CB BIIB 
9@47- Bi 4C BI2ZD 
9849-— 48 BISD 
F24A- 9B GBA BI4D 
BISO G 
9G4C-— AS 4C 9968 IMEDIATE 
9G4E- 48 B97B 
9@4F- AS 4D 2989 
98351- 48 DIPS 
9852- AI BS 1999 SETSCOUNT 
IDS4— 9G AZ 1918 
1928 3; 
9956- AP G2 193@ SET2COUNT 
9@58- 28 61 98 1649 COUNT 
9G@S5B- 68 1956 
9@5C-— AB 196 
985D- 68 1978 
9OSE- 69 1988 IMPLIED 
1998 ; 
9OSF- AP G1 119@ INC.PC 
9H61- 18 1118 COUNT.PC 
9G62- 65 4C€ 11298 
9964- 85 4C 1138 
9B66- 98 BS 1149 
9G@68- ES 4D 1158 
9®@6A- 18 1168 
9G6B- AG OO 1178 NOQ.CARRY 
9G6D- 6o 1189 
119B 35 
9B6E- AA 128@ STORE 
906F- 40 8D DI 1218 
1228 3; 
9872- 85 E9 123% CONVI1 
9274- 84 EA 1249 
9B76- AD AG 1258 
7278~- Bi EP? 1266 
9B7A- 48 1278 
987B- C8 1289 
987C- Bl EP 1299 CONVI1A 
9@7E-— AB 13089 
9B7F- 68 13108 
988G- 206 4C Di 1326 
9983- AS B6 1338 
9285- 19 87 1349 
9987- AP C4 1354 
9BB9- AD 9B 1368 
998R- 2% 1D D& 1378 
9G8E- 60 1366 NO.OP 
1398 3; 
SESF— 85 ES 149@ CONV2 
9891- 84 EA 1419 
9OIS— AD G1 1426 
9995- Bl E9 143@ 
9297- 48 144 
9898- 88 145@ 
9O99- F® EL 1468 
147@ 3 
9@9B- 68 1482 RETRN 
989C- 68 149% 
9@9D- 6C 4C 2B 1588 
1514 ; 


{continued to page 14) 


(MPEL),Y 


(MPCL) ,Y 


SET2COUNT 3 ALWAYS 


t} 


=MPCL 
SMPCH 


#EOBS 
COUNT 7 ALWAYS 
#SB2 

COUNT. PC 


$OO1 


SMPCL 
*MPCL 
NO. CARRY 
sMPCH 


REDO 


FPSTR 


ATMPL 
*TMPH 
8390 
(TMPL) ,Y 


(TMPL) ,Y 


INT>FP 
*FPACI+S 
NO. OP 
#L, VALUE1 
#H, VALUE1 
FPADD 


STMPL 
*xTMPH 
BEG1 
(TMPL),Y 


CONVIA 7ALWAYS! 


(MPCL) 
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five, 
OOP1 5 >>>PARTIAL "SOURCE CODE" FOR BAS-1<<< 
BOG2 5 
9403 ;COURTESY A. J. HISSINK, STEVE COLE, JACK BROWN. 
9204 ;AND OH, SO MANY OTHERS! 
GODS : 
BBBH -BA $COae 
GADBT -MC $C9a@ 
BOOB -OS 
DRA? 5 
OB1iB JUMPS -DE $@@ JUMP TO WARM START 
@811 JUMPS -DE $93 JUMP TO MESSAGE SUB 
Q@B12 VECTS -DE #86 VECTOR FLOATING TO INTEGER SUB 
9G13 VECTS -DE $8 VECTOR INTEGER TO FLOATING SUB 
O214 USRIMP «~DE $@A JUMP TO USER ROUTINE 
9815 SEARCH «DE $@D SEARCH CHARACTER 
2B16& SCAN .~DE $@E SCAN CHARACTER 
9@17 IBRUPTR -DE $@F INPUT BUFFER POINTER 
@B18 TYPE -~DE $11 FF=STRING @@=NUMERIC 
919 TYPEF -~DE $12 FF=INTEGER ®@=FLOATINT PT 
BAZ FLGIS »~DE $13 FLAG- DATA SCAN; LIST QUOTE 
9821 FLG14 -DE $14 SUBSCRIPT FLG; FNX FLG 
QPN22 TYPFLG -DE $15 S@-INPUT; 49-GET; 978-READ 
9923 CEFLG -DE $16 
9624 INPFLG -DE $17 INPUT FLG (SUPPRESS OUTPUT) 
9G25 NULLS -DE $18 
9826 PR.POS -DE $19 POSITION ON PRINT LINE 
@@27 TWIDTH -DE 1A TERMINAL WIDTH 
$228 COLLIM -DE $1B INPUT COLUMN LIMIT 
2829 LINNUM -DE $1C LINE NUMBER 
Q2O3O@ BUFF -~DE $1E OLD BUFFER POINTER 
@O31 DISSTK -~DE $66 POINTER TO DESCRIPTOR STACK 
@AS2 ADRPTR1 -DE $72 ADDRESS PTR FOR TEXT INSERTION 
®B33 ADRPTRZ »DE $74 ADDRESS PTR FOR TEXT INSERTION 
9834 PROD -DE $76 PRODUCT AREA FOR MULTIPLICATION 
GA35 PSAD -DE $7B START SOURCE TEXT 
PA36 VSAD -DE $7D START SIMPLE VARIABLES 
®@BS7 ASAD .-DE $7F START ARRAY VARIABLES 
2H28 VEAD -DE $81 VARIABLES END ADDRSSS 
PA3S9 SSAD -DE $83 STRINGS START ADDRESS 
@24¢) SEAD -DE $85 STRINGS END ADDRESS 
9241 HIMEM .DE $87 LAST AVAILAVLE RAM LOC 
2242 CURLIN -DE $89 CURRENT BASIC LINE NUMBER 
O43 LSTLIN -DE $8B PREVIOUS LINE NUMBER 
2244 CONTPTR -DE $8D POINTER: STATEMENT FOR CONT 
2245 DATALIN -DE BF CURRENT DATA LINE NUMBER 
22846 DATADR -DE $91 CURRENT DATA ADDR 
D247 INPVEC -DE $93 SOURCE OF INPUT 
9948 CURVARNAM .DE $95 CURRENT VARIABLE NAME 
8949 CURVARADR -DE $97 CURRENT VARIABLE ADDRESS 
BAS VADPTR -DE $99 VARIABLE AD POINTER 
851 STXPTR -DE $9B SAVE TEXT POINTER 
YO52 FUNDIS -DE $9E POINTER TO FUNCTION DESCRIPTION 
@@53 WORKPTR -DE $A@ WORK POINTER 
8854 GARBAG »DE $A5 
9O55 FUNIMP »~DE $A4 JUMP VECT FOR FUNCTIONS 
GB56 WORKAREA -DE $A7 MISC NUMERIC WORK AREA 
@@57 VECT1 »DE $A8 
2858 VECT2 -DE $AA 
OOS59 EBLEKPTRI -DE $AD BLOCK TRANSFER POINTER 
4660 BLEPTR2 -DE AF BLOCK TRANSFER POINTER 
@G561 ACL.E -DE $BR1 ACCUM#1: EXPONENT 
WBS2 ACL.M -DE $B2 ACCUM#1: MANTISSA 
9@63 AC1.S -DE $86 ACCUM#1: SIGN 
@BS4 SEREVAL .~DE $87 SERIES EVALUATION CONSTANT PTR 
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aci.o 
AC2.E 
AC2.M 
AC2.S 
SGNCMP 
ACI.R 
SERPTR 
TRIGP 
TAPESV 
TAPELD 
CHRGET 
CHRGOT 
TXTPTR 
RANDOM 
; 

ae 


PGONE 
PROGRAM 


MEMORY 


- DE 
. DE 


$B8 
$B9 
$BA 
$BE 
SBF 
054) 
$Ci 
$C3 
$Cé 
$C? 
$CC 
$D2 
$D3 
$E4 


ACCUM# 1: 
ACCUM#2: 


OVERFLOW (HI-ORDER) 
EXPONENT 

ACCUM#2: MANTISSA 

ACCUM#2: SIGN 

SIGN COMPARISON ACI vs AC2 
ACCUM#1: ROUNDING (LO-ORDER) 
SERIES POINTER 

TRIG JUMP 

TAPE SAVE JUMP 

TAPE LOAD JUMP 

GET NEXT CHARACTER 

REGET LAST CHARACTER 

TEXT POINTER 

RANDOM NUMBER SEED 


ALLOCATIONS 


$19 POINTER TO PAGE ONE 
$299 START OF SOURCE PROGRAM 


i 
3%* MONITOR ROUTINES USED 


s 
ASCNIB 
INSTAT 
INCHR 
OUTCHR 
ACCESS 
LOADT 
DUMPT 


3 
34% 


s 
BASCOLD 


3 
ADRKEYWD 


«DE 
-DE 
-DE 
-DE 
«DE 
.-DE 
« DE 


SYSTEM 


-5I 
-SI 
SI 


-SI 
-SI 


-SI 


-SI 
-SI 
-SI 
-SI 


$8275 CONVERT ASCII TO LO 4 BITS 
$8386 SEE IF KEY DOWN 

$8A1B INPUT CHAR 

$8A47 MON CHAR OUT 

$8B86 UNWRITE PROTECT SYS RAM 
$8C78 MONITOR TAPE IN ROUTINE 
$8E87 MONITOR TAPE QUT ROUTINE 


RAM LOCATIONS 


$A64A TAPE END ADDRESS 
$AS4C TAPE START ADDRESS 
SA64E TAPE HEX ID 


INIT. ZPAGE 


END-1 
FOR-1 
NEXT-1 
DATA-1 
INPUT-1 
DIM-1 
READ~1 
LEtT=1 
GOTO-1 
RUN-1 
IF-1 
RESTORE-1 
GOSUB-1 
RETURN-1 
REM-1 
STOP-1 
ON-1 
NULL~-1 
WAIT-1 
LOAD-1 
SAVE-1 
DEF-1 
POKE-1 
PRINT-1 
CONT-1 
LIST-1 
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saction addr for primary keywords 


C@37- 
C@39- 
C@SB- 


C@3D- 
C@3F— 
C941- 
C8435- 
Ca45- 
C@47— 
C#49- 
C@4B- 
C@4D- 
C@4F—- 
C@S1i- 
C@S53- 
C@55- 
C@57- 
C@S9- 
C@SB- 
c@sp- 
C@SF— 
C@61- 
CBS3— 
C®65- 
C®67—- 
C8@69- 


C86B- 
C@6C- 
CO6E- 
C@4F— 
C#71- 
C@72- 
C874- 
C@75- 
C®77—- 
C@78- 
Ca7A- 
C#7B- 
C@7D-— 
CO7E- 
Ce#Be— 
C#B81- 
C@83- 
cC@a4- 
Cg@86- 
C%687-— 


cgEa9- 
Ce@BC- 
C@8F- 
Ce92- 
C893- 
CB8I96- 
C897— 
Ca9A- 
Ce9Cc- 
CA9F- 
C#@A2- 
C@AS- 
CBAS— 
CBA9- 
COAAR-— 


3 
ADROPER 


3 
KEYWD 


-SI 
-SI 
«SI 


-SI 
-SI 
«SI 
-SI 
-SI 
«SI 
SI 
-SI 
-SI 
-SI 
SI 
-SI 
-SI 
-SI 
-8I 
SI 
81 
-SI 
SI 
-SI 
SI 
-SI 
-S!I 


«BY 
-SI 
-BY 
-SI 
«BY 
-SI 
»BY 
-SI 
-BY 
-SI 
- BY 
-SI 
-BY 
-5I 
-BY 
«SI 
- BY 
-SI 
«BY 
-SI 


«BY 
- BY 
BY 
«BY 
«BY 


«BY 
~BY 


-BY 
-BY 


- BY 


CLEAR-1 
FCERROR-1 
WEW—2 


36ET not implemented 


S6N saction addr for functions 


INT 
ABS 
USRJIMP 
FRE 


sactually starts at $CDBD! 


$79 shierarchy and action addresses 


ADD-1 
$79 
MINUS-1 
$7B 
MULT-1 
$7B 
DIVIDE-1 
$7F 
EXPON-1 
$59 
AND-1 
$46 
OR-1 
$7D 
GREATER-1 
5A 
EQUAL-1 
$54 
LESS-1 


"EN $C4 
"FO" $D2 
*NEX’? $D4 
"DAT? $C1 
>INPU $D4 


"pi’ sCD 
*REA’” $C4 


7LE’ $D4 
"GOT* SCF 


*RU’ $CE 


3for operators 


2 RUN 
SYM-PHYSIS 10311 


C@AD- 
COAF— 
C@B2- 
CORS-— 
C@R6- 
CaR9- 
C#BB- 
C@RE- 
Cc@ci- 
c@c4- 
C@C7- 
cgcs- 
CaCcA- 
C@CD- 
C@CE- 
C@D1- 
CeD2- 
C@DS- 
CaD6- 
C@D9- 
C#DA- 
C@DD- 
CSED- 
CHE1- 
CHE4— 
CSE6- 
CHES- 
C#EA- 
C@ED- 
CMEE- 
COF1- 
CaF3- 
CaF o6— 
CaF9- 
C@FC- 
CaOFD-— 
COFF- 
Cigi- 
C1ig4— 
C1g5- 
C198- 
C1989- 
cigc- 
Cigar 
C119- 
Crit= 
C112- 
C1i13—- 
C114- 
C1is- 
c118- 
C1iAa- 
Ci1iB- 
GLic= 
Cc11ip- 
c120- 
C123- 
C126- 
Cc129- 
€12C- 
Ci2F- 
Gis2- 
Cis3s- 
C138- 


24 


45 


D4 


45 


c4 


212 
B213 


@214 
9215 
215 
@217 
@218 
219 
D228 
W221 
@222 
#223 
@224 
W225 
226 
B227 
9228 
@229 
G230 
@231 
232 


@2335 


-BY 
-BY 


BY 
~BY 


«BY 
- BY 


«BY 
-BY 


«BY 
~ BY 
- BY 


~BY 
BY 


«BY 
. BY 
- BY 
«BY 


«BY 
- BY 
- BY 


BY 
BY 
- BY 


BY 


BY 
BY 


BY 
«BY 
«BY 
- BY 
~BY 
-BY 
- BY 
«BY 
«BY 
» BY 
- BY 
. BY 
BY 
-BY 
- BY 
BY 
- BY 
- BY 
~BY 
- BY 


"I" $C6 
*RESTOR’ $CS 


*GOSU" $C2 
*RETUR” $CE 
*RE* $CD 
"STO’ $D® 
"0°" $CE 
*"NUL” $CC 
"WAI" $D4 
*LOA’ $C4 
"SAV? $C5 
*DE* $C6 
*POK’ $CS 
?PRIN’ D4 
"CON’ $D4 
*LIS’ $D4 
"CLEA” $D2 
"GE” $D4 
*NE* $D7 

* TAB" $A8 
"fh? SCF 

7iF* SCE 
*SPC’” $A8 
>THE’ $CE 
*NO’ $D4 
*STE” Da 
$ABR 3+ 
$AD = 
AA 3% 
SAF 3/ 
SDE eg 


"AN? $C4 ;AND 
707 $D2 ;O0R 
$BE :> 
*BD ;= 
$BC ¥< 
"SG? $CE 
"IN? $D4 
"AB? $D3 
"US" $D2 
"FR? $C5 
"PO? $D3 
"SsQ’ $D2 
"RN? $04 
"LO’ $C7 
"EX’ $D@ 
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C1i3B- 
Ci3se- 
c141- 
C144- 
C147- 
C14Aa- 
C14B- 
Ci4E- 
c1i51- 
c152- 
c135- 
Cc158- 
C1SB- 
cisc- 
CiSF- 
Ci61- 
C164- 
C167- 
C16A- 
C1i6k- 
C16D- 


C1iéE- 
C17g- 
erv2- 
C174- 
C176- 
GI78= 
C178- 
C17c- 
CL7E= 
c18¢- 
C182- 
c184- 
C1a6- 
c188- 
C18A- 
c1i8c- 
C18E- 


Ci9g— 
C193- 
C196— 
Crg97= 
C1i9A- 
ci9c- 
CiSF— 
C1A2- 
C1A3- 
C1iA6— 
C1Ag-— 


@274 
9275 


-BY 
- BY 
- BY 
~BY 
- BY 


«BY 
» BY 


« BY 
- BY 
~BY 
~BY 
- BY 
. BY 


. RY 
» BY 


ASMSG «BY 
-BY 
- BY 
-BY 
-BY 
-BY 


3 
ERRMSG - BY 


INMSG - BY 


OKMSG - BY 


BRKMSG - BY 


-EN 


(SYM-PASCAL —- continued from page 24) 
P. S. — We took 


disassembled; 


>>>PLEASE CONTACT SATURN SOFTWARE LIMITED FOR ANY FURTHER INFORMATION<<< 
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little 


“time-—of f" 
SYM-Pascal manual about which sections of 
examination of the 


*CO” $D3 
"SI’ $CE 
TAY SEE 
"AT* $CE 
*PEE’ $CB 


"LEY sce 
"STR” $A4 


"VA" $CC 
7AS* $C3 
*CHR® GA4 
"LEFT" $A4 
*RIGHT* $A4 
"MID* $A4 


*G” SCF 
SHO 


ERROR CODES 


$4E $C6 ; 

$53 $CE ;SN 
$52 $C7 RG 
$4F $C4 30D 
$46 C3 :FC 


* SIN. *? “See 


$9D $BA "OK" $6D 


$2D $GA ’ BREAK’ 


to follow the suggestion in the 
code should be 
thus-obtained source code indicates 
that “customization” to match your system requirements should be a 
Simple task. 


the object 


3;cos 
3SIN 
3 TAN 
3ATN 
3 PEEK 


7LEN 
7STRS 


3 VAL 
3ASC 
;CHRS 
;LEFTS 
;RIGHTS 
sMIDS 


360 


SBA $90 


SOO 


{continued from page 8) 


98AD- S7 D9 1528 SUBTBL «SI LDACIi-1 
9@A2- 6D 94 1530 -SI STORE-1 
98A4- C4 DI 1548 -SI TR1i>2-1 
9MA6—- Bi DI 155@ -SI TR2>1-1 
9@A8- 1C Db 1568 .-SI FPADD-1 
9BAA- BC DS 1570 -SI FPSUB-1 
9@AC- DD D7 1568 -SI FRPMUL-1 
9GAE- C4 DS 1598 -SI FPDV1-1 
9GBS- BD 94 1688 -SI NO.OP-1 
9@B2- F2 DC 1618 -SI FPS@R-1 
9@B4— FI DC 1628 ~SI FREXP-1 
9GBRB6- 81 DA 1638 -SI FPINT-1 
9SB8- @D DA 1648 -SI FRABS-1 
9@BA- EE D9 1658 -SI FPSGN-1 
9OBC- 9F D7 1669 -SI FPLOG-1 
9@BE- 71 94 1678 -SI CONV1-1 
99CO- BE 9B 1689 -S31 CONV2-1 
9GC2- FA 9D 1698 -SI RETRN-1 

1796 
99C4-— 94 BH BB 1719 VALUE1 -BY $90 $20 $99 
IBC7T— BB BO 1728 «BY $80 $9 

1738 

1746 -EN 


THE BASIC USER FUNCTION 

The BAS-1i1 USR function has more parameter passing capability than the 
USR function as implemented in most earlier Microsoft BASICs. Also, 
there is no need to "“POKE" the subroutine location, as in most other 
Microsoft BASICs. If you wish to have the values in the A,Y register 
pair returned correctly, however, your machine language program must not 
end with the usual RTS, but instead with either a JMP $D14C or a JMP 
($9998). The BASIC subroutine at $D14C converts an integer supplied to 
it in the A,Y register pair into a floating point number, and returns to 
the proper reentry point in BASIC with its own RTS. This floating point 
value is then assigned to the variable whose "name" was set equal to the 
USR function. 


The purpose of this and the following brief notes is to point out 
alternate ways of passing parameters. First of all, the "final" 
Parameter is also passed in the two page zero locations at $B4,$B5, as 
well as in A,Y. This may prove useful if the parameters are to be used 
several times. Remember that although BASIC stores its integers in hex 
format, the bytes are "reversed(?!)" from the usual 6592 format, with 
high byte first. The A,Y pair is passed as USR(LOCATION, 256*AtY) on 
the first call, or as USR(256*A+Y) on succeeding calis to (the same) 
LOCATION. 


Note that while Y may lie in the range 9 <= Y <= 255, you cannot pass 
values of A greater than 127. This is no real restriction, however, 
since the acceptable range for A is -128 <= A&A <= 127. To pass $FF, set 
A = -1, to pass $89, set A = -128, etc. 


ON INTEGER VARIABLES 


You may also pass parameters as BASIC integer values, P1%, P2%, ... « 
If the first line in your BASIC program assigns dummy values to these 
variables, then after RUN is “executed” the values of these parameters 
are at known locations, from which your subroutines may pick them up. 
RUN the program: 


1P1Z=19:P27=19G8: P37=1999 


Reentry from SUPERMON is with .G 
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Exit BASIC with X=USR(&"8935",9) <cr>. 


@®<cr>. You will find the correct value pairs 98 GA, G@ 64, GS ES, in 
the memory at the end of your BASIC program, with the pairs separated by 
seven bytes. The location of the first pair (high byte first!) is at 
the address in locations $7D,$7E (low byte first!) + 2. This technique 
of passing paraneters as BASIC integers is very useful in graphics, 


music, and control applications. Your BASIC program can change the 
values of these parameters as desired, but the locations will remain 
fixed. AND NOW HERE COMES THE GOOD PART! !!!! You are not restricted to 
returning only a single pair of bytes through (A,Y). Return as many 


Pairs as you wish, through P1%, P2%, ... - 


Just recently, one of our readers phoned to ask about the "%" sign he 
had seen following variable names, and it was suggested that he reread 
the BAS-1 Reference Manual section on integer variables!!!! He pointed 
out that the Reference Manual had absolutely no mention of integer 
variables; much to our surprise this is true. Those of us familiar with 
BASIC before getting BAS-1 must just have assumed BAS-1 would have 
integer variables and did not realize they were not documented in the 
Manual ! 


Incidentally, the use of integer variables instead of floating point 
Variables saves no space, and very little time, if any. The major ad- 
vantage of using integer variables is the space saving in arrays 
(matrices), e.g-, use AZ(I,3,K), instead of A(I,J,K), if the entries are 
integers. A second advantage of integer variables is the close relation 
to hexadecimal form as illustrated above. Has any reader studied 
Microsoft BASIC enough to let us know under what conditions the use of 
integer variables will reduce computation time? 


Here is an improvement for Hissink’s DISARAE, extracted from a letter 
from Dick Albers: 

As originally published in SYM-PHYSIS, DISARAE wastes one, or, for cer- 
tain instructions, two bytes per line, by inserting $A® (A@ = $89 + $29 
= "negative space") as an end-of-line indicator. That can be a lot of 
bytes for a large program, such as RAE-1, or BAS-1. These new lines 
will correct the "problem" and save the bytes: 


SIDA 3924 DEC *PGM.PTR+1 
S391@ END.LINE PHP 3926 MRKEND LDY ##9o 

S912 STY *YSAVE 3928 LDA (PGM.PTR),Y 
3914 DECPTR LDY *PGM.PTR 3938 CMP #928 

S916 DEY 3932 BEQ DECPTR 

3918 STY *PGM.PTR 3934 ORA #%89 

3920 CPY #%$FF 3936 BMI A.STORE+3 
3922 BNE MRKEND S94D 


FLOATING POINT AND HUEY II 

So that you may better understand how Microsoft BASIC does its 
arithmetic, including series evaluations, we publish below a "derived" 
source code for the BAS-1 TRIG PATCH; this is well worth studying. 


We would also like to remind you of HUEY II, a free-standing floating-— 
point program, available in Manual form only, and only from the 6592 
Program Exchange. If you really want to understand floating point 
arithmetic, including conversions to-and-fro, sophisticated computa-— 
tional algorithms, and "macro-string" programming, the HUEY II Manual is 
a must! 


While we are not officially dealers for HUEY II, we do have permission 
to distribute a RAE-1 Format Source Code Cassette for HUEY II to those 
who order the HUEY II Manual and Cassette as a package. 
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2999— 
2892— 
2994— 
29Bb— 
2998— 


Ag 
AD 
85 
84 
69 


AD 
SE 
c4 
cs 


;SOURCE CODE FOR (MODIFIED) BAS-1 TRIG PATCH 


sThe “original” source code appearing here was 
srecreated by Tom Gettys from a study of the 

;published object code. It was slightly modi- 
sfied and compacted by Jack Brown to generate 
3a shorter object code than the published one. 


3;Wherever you choose to relocate this patch, 
sremember that it is the address of TRIGST 
sthat is to be installed in TRIGP, not the 
3-BA address, 
slink in your initialization: 


LINK 


-BA 


i<@.:5 


$2999 


include the following 


30R WHEREVER 


#L, TRIGST 
#H, TRIGST 
STRIGP+1 
aTRIGP+2 


sJack Brown has given us permission to reprint 
phere the following (slightly modified) extract 
>from his copyrighted SYM-BASIC extensions. 


5 ax COPYRIGHT 1989 BY J. W. BROWN an 

5 2% ALL RIGHTS RESERVED ax 

5 ax PAGE ZERQ DEFINITIONS be 
CEFLG -DE $16 

FUNDIS -DE $9E POINTER TO FUNCTION DESCRIPTION 
FACTC «DE $A7 

FACTA -DE $Bi FLOATING PT REGISTER A 
FACTB -DE $B9 FLOATING PT REGISTER B 
ASCFAC -DE $Ci ASCII REP OF FACTA 
TRIGP -DE $C3 TRIG JUMP 

3% INTERNAL BASIC ROUTINES ax 
KEYWD »-DE $C@88 START KEYWORDS 

OPENUP -DE $CiD9 OPEN UP SPACE FOR LINE 
INIT -DE $C229 INITIALIZE 

ERRMES -DE C258 ERROR MES SUB 

BAWARM -DE $C27E BASIC WARM START 
FIXLNK -DE C323 FIX LINE LINKS JUMP 
LNKFIX »=DE $C32C FIX LINE LINKS SUB 
FINDLN -DE $C427 LOCATE LINE IN TEXT 
SCRATCH -DE $C458 

RSTCLR -DE $C446D RESET PTRS AND CLR 
PROCES -DE $CSDi EXECUTE LINE OF TEXT 
BADSAV -DE $C6DD SAVE ERROR EXIT 
BADLOD -DE $Cé6EF LOAD ERROR EXIT 
ENGOTO -DE $C732 END GOTO 

LINGET -DE $C7F5 ASCII TO BINARY 
BASRET -DE $C8F6& HERE WITH FULL BUFF 
MESSUB -DE $C954 SEND MESSAGE HI Y LO A 
ENDGET -DE $CAZE RETURN FROM GET 
NUMERIC -DE $CAS6 NUMERIC GET 

EVARG -DE $CB43 EVAL ARG AS 2 BYTE HEX 
CRBRAK -DE $CCAS CHK FOR RT BRACKET 
CLBRAK -DE $CCAS CHK FOR LFT BRACKET 
CCOMMA -DE $CCAB CHK FOR COMMA 

GVARAD -DE $CESF GET VARIABLE ADDRESS 
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c cy sactt,, 
966G FIXFLT .DE $CF79 FIXED TO FLOAT GE4SE- AD D7 1199 LDY #H, CONSTANT 
579 FCERROR .~DE $D@92 FC ERROR MESSAGE GESS- 26 C5 DB 1269 JSR DIVMF 1/FACTA > FACTA 
G68 FLTFIX .DE $Di4C FLOAT TO FIX @E53- AI OG 1218 ATAN2 LDA #L,CONST1 
8699 CHKDIR -DE $D15F CHECK FOR DIRECT COMMAND GESS- AD GE 1228 LDY #H,CONST1 
B7BG EVARGX .DE $D553 EVAL AS 1 BYTE @E5S7- 20 C2 DD 1239 JSR FLOAT1 
G71G INTFLT .-DE $D5AD FLOAT TO INTEGER GESA- 68 1249 PLA 
9728 ADDHALF .DE $DSFF .S+FACTA>FACTA SE5B- C9 a1 1259 CMP #¢$81 
9739 SUBMF .-DE $D4696 MEM-FACTA > FACTA GESD- 99 97 1268 BCC ATANS 
9749 SUBAF .-DE $D4669 FACTB-FACTA >FACTA SESF- AP 6D 127 LDA #L,CONST2 
9758 ADDMF .DE $D61D MEM+FACTA > FACTA GE61- AD BE 1289 LDY #H,CONST2 
9768 DIVAM .DE $D8BD FACTB/MEM > FACTA ME63- 26 6 DS 1299 JSR SUBMF MEM-FACTA > FACTA 
G77G DIVMF .DE $D8C5 MEM/FACTA > FACTA GE66- 68 1389 ATANS PLA GET SIGN BACK 
9789 MEMFAC .DE $D958 MEM TO FACTA GES7— 1B BS 1319 BPL ATAN4S 
9799 FLOATZ -DE $D98¢ GE69- 4C 36 DD 1329 JMP CHGSGN 
9899 FLOATS .-DE $D98A GESC- 68 1339 ATAN4 RTS 
9819 FLOATS -DE $D9C2 1349 ; 
@829 FLOATC -DE $D9FF BINARY TO FLOAT @E6D- 81 49 BF 1359 CONST2 -BY $81 $49 $9F $DA $A2 
@839 INTFAC .-DE $DA82 INT(FACTA) > FACTA GE7BZ— DA AZ 
9849 FOUT -DE $DB9A MAKE ASCII 9E72- 7F 6 BB 1368 CONSTS -BY S7F $2 $99 $99 $99 
@859 CHGSGN -DE $DD36 -FACTA >FACTA GE7S- 9B BO 
@869 FLOATI -DE $DDC2 GE77- 95 1379 CONST4 -BY $95 ;FIVE CONSTANTS FOLLOW 
@879 CHRCOD .DE $DE59 CHRGET/GOT CODE @E78- 84 E46 1A 1388 -BY $84 $E6 $1A $2D $1B 
988g @E7B- 2D 1B 
@899 CONSTANT .DE $D772 81 BO BD BB BB VETD- 86 28 B7 1399 -BY $86 $28 $97 $FB $F8 
BIBD @ESS- FB FS 
GIG GE82- 87 99 68 1499 .BY $87 $99 $68 $89 $@1 
GI2D 34% TRIG PATCH SOURCE CODE Kk @ES5- 89 G1 
GI3B @E87- 87 23 35 1419 -BY $87 $23 $35 $DF $E1 
B9I4D -BA $GEGD 3;OR WHEREVER @ESA- DF E1 
9958 GESC- 86 AS SD 14298 -BY $86 $A5 $5D $£7 $28 
GEDD- GB 9968 CONSTI -BY $9B 312 CONSTANTS FOR TRIG GESF- E7 28 
®EGi- 76 BS 83 B97 -BY $76 $B3 $83 $BD %D3 GE91- 83 49 GF 1439 CONSTS -BY $83 $49 $9F $DA $A2 
@E9D4— BD DS GE94- DA AZ 
GE96- 79 1E F4 9989 -BY $79 $1E $F4 $A6 $FS5S GE96- AL 54 46 1449 -BY $Al $54 $46 $8F $13 
GEBI- AS F5 GE99- SBF 13 
@EGB- 7B 83 FC 9999 -BY $7B $83 $FC $B9 $19 GE9B- SF 52 43 1459 -BY $8F $52 $43 $89 $CD 
GEGE- BS 19 GESE- 89 CD 
@E1S- 70 OC IF 1966 -BY $7C $9C $1F $67 $CA 1466 
@E13- 67 CA GEAS-— CH 72 1478 TRIGST CPY #$72 SINE FUNCTION? 
9E15- 7C DE 53 1919 ~BY $7C $DE $53 $CB $C1i BEA2Z— FO 39 1489 BE@ SINE YES- 
ME18- CB Ci GEAS— 99 3G 1499 BCC COSINE NO- IT’S COSINE 
@E1A- 7D 14 64 1982a BY 7D $14 $64 $72 $4C BEAG-— CG 76 1599 CPY #$76& MAYBE-— IT’S ATAN FUNCTION? 
@E1D- 79 4C GEAB- FO 93 1519 BEQ ATAN YEP-— 
@E1F- 7D B7 EA 19836 -BY $7D $B7 SEA $51 $7A 1529 
GE22- 51 7A GEAA- 26 8G DF 1539 TAN JSR FLOAT2 NO- MUST BE TANGENT 
GE24— 7D 63 3H 1949 -BY $7D $63 $39 $88 $7E BEAD- AI 2B 1549 LDA #@ 
GE27- 88 7E @EAF- 85 16 1559 STA *CEFLG COMPARE EVAL FLAG 
GE29-— 7E 92 44 1959 -BY $7E $92 $44 $99 $3A @EBI- 2@ DD SE 1569 JSR SINE 
@E2C- 99 3A GEB4— A2 9E 1578 LDX #L,FUNDIS 
@E2E- 7E 4C CC 1969 -BY $7E $4C $CC $91 $C7 BEBE— AD 2G 158 LDY #H,FUNDIS 
@E31- 91 C7 GEBS- 29 BA DI 1599 JSR FLOATS 
@E33-— 7F AA AA 1876 «BY $7F $AA SAA SAA $13 SEBB- AI A7 1696 LDA #L,FACTC 
GE3S6- AA 13 GEBD- AG BO 1619 LDY #H,FACTC 
GE38- B1 BF BD 1989 -BY $81 $99 $99 $99 $99 @EBF- 24 58 DF 1629 JSR MEMFAC FACTC > FACTA 
GESB- BG BO MEC2- A2 BO 1639 LDX #9 
1899 @EC4- 85 Bé 1649 STA *FACTA+S CLEAR SIGN 
GE3D- AS B6 1198 ATAN LDA *FACTAtS GET SIGN GEC6- AS 16 1659 LDA *CEFLG 
GESF- 48 1119 PHA SAVE ON STACK @EC8- 26 D2 BE 1669 JSR TANB 
GEAB-— 1G BS 1126 BPL ATANI GECB- AP 9E 167 LDA #L,FUNDIS 
GE42- 26 34 DD 1136 JSR CHGSGN -FACTA > FACTA GECD- AD BG 1689 LDY #H,FUNDIS 
®E45- AS Bi 1149 ATANL LDA *FACTA GET EXPONENT @ECF- 4C C5 DS 14699 JMP DIVMF 3;MEM/FACTA > FACTA 
GE47- 48 1159 PHA SAVE ON STACK GED2- 48 1798 TANB PHA 
GE48- C9 B81 1169 CMP #$81 GEDS- 4C OF OF 1719 IMP SINEA 
GE4A- 9G G7 1176 BCC ATAN2 1728 ; 
®E4C- AP 72 1189 LDA #L, CONSTANT @EDS- AD 4D 1739 COSINE LDA #L,CONST2 
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SEDS— AD GE 1749 LDY #H,CONST2 


@EDA- 26 1D D6 1758 JSR ADDMF MEM+FACTA > FACTA 
@EDD- 24 C2 D9 176 SINE JSR FLOAT4 
GEEG— AI 91 1778 LDA #L,CONSTS 
@EE2- AD GE 1789 LDY #H,CONSTS 
GEE4— AS BE 1798 LDX *FACTB+5 GET SIGN 
@EES— 26 BD DB 19899 JSR DIVAM FACTB/MEM > FACTA 
GEES— 29 C2 DP 1819 JSR FLOAT4 
@EEC— 28 82 DA 1826 JSR INTFAC INT(FACTA) > FACTA 
GEEF- AG 9G 19839 LDY #9 
@EFi- 85 BF 1849 STA #FACTBtS 
GEF3- 26 99 D6 1859 JSR SUBAF FACTB-FACTA > FACTA 
GEF6- AD 72 1869 LDA #L,CONSTS 
@EFS- AG GE 1879 LDY #H,CONSTS 
GEFA- 26 96 D6 18989 JSR SUBMF MEM-FACTA > FACTA 
GEFD- AS Bé 1898 LDA *FACTA+S GET SIGN 
@EFF- 48 1999 PHA SAVE ON STACK 
GFOD- 19 BD 1918 BPL SINEA 
@F92- 26 FF DS 1928 JSR ADDHALF .5+FACTA > FACTA 
OFI5-— AS BS 1939 LDA &FACTAtS GET SIGN 
@FO7— 38 29 1949 BMI SINEB 
GFO9- AS 16 1959 LDA &CEFLG 
GFOB- 49 FF 1969 EOR #$FF 
@FOD- 85 16 1979 STA *CEFLG 
@FOF- 26 36 DD 1989 SINEA JSR CHGSGN -FACTA > FACTA 
9F12- AI 72 1999 SINEB LDA #L,CONSTS 
OF14— A@ GE 2999 LDY #H,CONSTS 
@F16- 26 1D D6 219 JSR ADDMF MEM+FACTA > FACTA 
@F19- 48 2828 PLA GET SIGN BACK 
GFIA- 19 93 2939 BPL SINEC 
@FiC- 24 36 DD 2949 JSR CHGSGN 
@F1F- A9 77 2459 SINEC LDA #L,CONST4 
9F21- AS GE 286B LDY #H,CONST4 
@F23- 40 C2 DD 2079 IMP FLOAT1 
2088 ; 


2G9D . 
RAE CLOCK CORRECTIONS — DICK ALBERS 


13:99:53 WED DEC 3@, 1981 
Dear Lux, 
Here are the last of the corrections to RAE CLOCK. 


As you can see, the actual corrections are simple. The important ones 
are in line(s) 1959, and lines 3599 to 389%, since these portions do not 
run properly as published under many conditions. The other correc— 
tions are not as critical, since those problems only occur under certain 
unlikely conditions. 


BRKFIX, INXIR@, and OUTXIR@ are the subroutines that "should have been 
in SUPERMON” that you mentioned in the introduction to the program. 
These routines are general enough to be used any time IR@s may occur 
during I/O (unless you are using IR@s for interrupt driven input). 


I too, would like to see an interrupt driven input program for SYM, but 
additionally, with the use of an ACIA or UART for serial/parallel, par— 
allel/serial conversion. 


The inspiration for this program was a similar one which you sent me 
that had appeared in an early issue of MICRO magazine (I found it in THE 
BEST OF MICRO, Vol. 3), written by Casmir J. Suchyta, III, and Paul W. 
Zitzewitz. That program was designed to be used with BASIC, and you 
commented how nice it would be to have something like it for RAE. That 
was received as a challenge, and RAE CLOCK is the result. 
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Thanks also to Jack Brown for pointing out an eaglier mistake of using 
the same timer as SUPERMON uses for tape timing. Everything was fine 
until I did a tape read or write! It is the one at $AMXX, and was used 
by you in issue 2 of SYM-PHYSIS for a clock for the unexpanded SYM. I 
have been using various versions of that program as long as I have had a 
SYM, and I had never wondered "“why?". 


An easy way to make these changes without changing the original line 
numbers (so they can still be used for reference), is to enter the new 
lines after the end of the program, and then MOve them to their final 
location. If you really want to, you can renumber lines from MON, with 
"JM", to any sequence you desire. It’s a lot of work though. 


/s/ Richard Albers 


ABAD 

BB2GH 3 RAE CLOCK CORRECTIONS 

BDAID 

DI4B 3 By Richard R. Albers 

DBSD 

BBO XKEKKK Insert the following definitions: 

QQh7 Oh 

9354 PBDA -DE A492 Terminal input port 

G358 TOUTFL -DE $A654 Terminal device flags 

@35@ INVEC -DE A668 Input vector 

@35@ OUTVEC -DE #A6635 Output vector 

@35@ UBRKVC -DE $A676 User break vector 

D350 SVBRK -DE $8844 Save regs after break 

O358 SAVER -DE $8188 Register save routine 

W35@ TIN -DE #$8A6A Part of INTCHR 

oene TOUT -DE $8AAR Terminal output subroutine 
7H 

9488 OOK Add the following lines to "LINK": 

B49@ 

2495 LDA #L, INXIR@ 

B495 STA INVEC+1 Link input patch 

BAIS LDA #H, INXIR@ 

B49S STA INVEC+2 

B49IS LDA #L,OUTXIR@ 

B49S STA QUTVEC+1 Link output patch 

9495 LDA #H,QUTXIRQ 

495 STA QUTVEC+2 

B495 LDA #L,BRKFIX 

BAIS STA UBRKVC Link BRK fix 

B495 LDA #H, BRKFIX 

B495 STA UBRKVC+1 

BIBS 

GS10 Ke Fit the following in wherever you like: 

DS2H 

AS2H s FIX RAE*S EXIT-TO-MON 

DI2B 

@52@ BRKFIX CLI Clear IRQ inhibits 

BS2H JMP SVBRK Continue as normal 

G52H 

O528 ; PREVENT GARBLING INPUT 

OS28 

@529 INXIROQ JSR INTX Make INTCHR return here 

W520 CLY to allow IR@Qs, then 

O52 RTS Return to INVEC’s caller 

BS2H 

P52G INTX JSR SAVER First part of INTCHR 

S20 LDA #$99 

528 STA **F9 

83528 LOOK1 LDA PBDA Find leading edge 

O52 AND TOUTFL 

BS2H SEC 

BS2H SRC #$4¢ Invert TTY polarity SYM-PHYSIS 19:20 


A528 
O528 
BS28 
D529 
D520 
528 
AS2H 
BS2H 
B526 
528 
OS2e 
a528 
193 
1948 
1958 
195 
1950 
1950 
1858 
1959 
1958 
2498) 
2500 
2516 
25208 
2538 
3430 
3446 
3458 
3468 
3478 
3488 
349@ 
3599 
3516 
3529 
353B 
3548 
3550 
3560 
357@ 
3589 
35908 
3690 
3605 
36108 
3628 
3636 
3635 
3646 
34658 
3668 
3678 
3686 
3698 
37GB 
3710 
3726 
3738 
3746 
3758 
3768 
3778 
3788 
3785 


OUTXIRQ 


ESS $$ 8 | 


NO 
GOTM 


AKKEKK 


CDONE 


RXKERE 


Po 25 2 3 | 


NXTR 


ADJUST 


STOM 


STOT 


sto 


BAD 


BCC 
SEI 
JMP 


LOOK1 


TIN 


(Returns via RESXAF to INXIR@+3) 


Not yet 
Prevent garbled input 
Let MON get char 


3; PREVENT GARBLING OUTPUT 


SEY 
JSR 
CLI 
RTS 


Replace line 


TOUT 


#9GA 
DAY/MO 


Output char w/o IR@ 
Output char 


1958 with the following: 


Test for Nov-Dec 
No 


It’s Dec 
(Always) 
It’s Nov 
Get current day 


Reverse lines 2520 & 253: 


LDX 
cLI 


SCRA 


Get BUFF index 
Allow time changes 


Change line 3468 to: 


JSR 


Replace lines 359% to 388@ with the following: 


JSR 
SEI 
BCS 
PHA 
AND 
CMP 
PLA 
BCS 
CPX 
BEQ 
CPx 
BNE 
SED 
SEC 
SBC 
CLD 
BCC 
CPX 
BNE 
CMP 
BCS 
BCC 
CMP 
BCS 
STA 
DEX 
CPX 
BEQ 
JSR 
CPX 
BNE 
INX 


TOUT 


INBYTE 
BAD 


#SOF 
HEBA 


BAD 
#ED4 
ADJUST 
HEDE 
STOM 


HSD1 


BAD 
#995 
sToT 
#$32 
BAD 
STO 
TABL, X 
RAD 
TIMR, X 


#SO7 
NYR 
CRLF 
#$97 
NYR 


Avoid CLI in OUTCHR patch 


Get value for reg 
Minimize IRQ’s 
Non-hex not allowed 
Test low nibble 
Only @-9 wanted 
Test high at STOT 
Day of week? 
Month? 

Month may be 19-12 
SUN or JAN=90 


Input of "88" n.g. here 
Day of month? 


Allow day of month = 31 


(Always) 
Check range 


Year needs 4 digits 
s0 skip CRLF if year 


Need re-prompt for year? 
No 
Yes, get all 4 digits 
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379 NYR LDA TSTAB,X Index for prompt 

3795 TAY 

3869 BNE PMOR If done, fall thru 

3805 

38S5G EREKKE Line 387@ may be changed to: 

3862 

3876 JSR INVEC Get any character 

388a 

3889 To allow any character to start the clock. 
388e@ CINBYTE requires a non-hex character.) 

73888 

F89S EREEE Finally, you may delete lines 38690 and 3986, 
39BH since both are included in START. 

391D 

3928 

BIoe PPh iin If you would like a more "standard” format: 
394G 

395@ 3 @9:14:49 SUN NOV 18, 1981 

3968 

SF7o fhe Make these additional changes on the indicated lines: 
3988 

1615 ~BY $2C 3 Comma 

2578 LDA BUFF+$17 

2618 STA BUFF+$17 

2748 ADC #$1F Add 31 bytes 

286@ ADC #$1F 

°4148 DRTAB -BY $C9 $CB $C? $83 $CA $82 SCA $01 

4150 .BY $84 $C9 $86 $05 $CC $C9 $88 $97 $00 


OLD PROBLEMS AND NEW SOFTWARE POLICY 

There is now far more quality software available for the SYM-1 than we 
{not editorial "we" this time, but us, you and me!) would ever have 
thought possible a year ago. Actually, we started the Users’ Group with 
the selfish thought that it would provide us with “free“ software, and 
the "noble" thought that we could expiate our selfishness by passing the 
software on to the rest of the SYM-1 community. 


In practice however, we now have guilt-feelings about having become a 
bottleneck in the distribution system, since the better programs are, in 
general, much too long to publish in SYM-PHYSIS. The only alternatives 
are to publish them separately in book form, or distribute them on cas— 
sette and/or disk, and charge, not what the traffic will bear, but 
enough to pay for all actual costs incurred: media, printing, shipping, 
handling, outside labor, etc., plus at least minimum rate for the time 
we spend in editing, debugging, documenting, etc. After all, consulting 
would be much more remunerative! 


We were semi-amused when one of our readers complained bitterly about 
the “exorbitant" prices Jack Brown was charging for his software (we 
felt much the same way about the prices of the 6592 Program Exchange, 
until we learned better, the hard way!). We were really amused when the 
Same reader submitted a program for distribution at a far greater asking 
price for a very much lower quality program, explaining he had put so 
many hours into the work, and really should be remunerated for his time! 


The publication of SYM-PHYSIS started as a hobby, and could easily con- 
tinue as just that, a "spare time” activity, actually meeting the sched— 
uled dates. The "Slippages" are due to two unanticipated added re- 
sponsibilities, neither one of which we would ever even have considered 
as a “hobby”. One is answering the tremendous volume of mail asking for 
help with SYM-1 problems. Some problems are easily solved and many of 
the questions are easily answered; often a brief note suffices. Unfor—- 
tunately, the more interesting questions and problems often require many 
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hours of "research" time, which are very frequently interrupted by 
telephone calls with still more problems and questions! This respon— 
sibility is one we cannot shirk; there would otherwise effectively be no 
source of help for SYMmers. 


The second responsibility we shall give up, as explained here. To para— 
phrase Orson Welles (in a US TV wine commercial), our policy has been: 
"We shall release no program before its time". This meant that we ex— 
amined each program carefully, understood its inner workings completely, 
exterminated as many of the bugs as we could find, tried to make it 
"crashproof", corrected any misspellings and grammatical errors, clari- 
fied any vague instructions, added missing documentation, and tried to 
give the package a “professional feel". This obviously has taken up 
much of our time, and has kept us from doing all of the "fun" things we 
got cur computer for (this parenthetical expression is added only soa 
that this sentence will not end with a preposition!). 


Occasionally, as with SWP-1, since the demand for a word processor was 


so great, we released a package without the usual manual, to save time, 
hoping that the example provided, plus the fully commented source code, 
also provided, would make the package immediately usable anyway 
(besides, it would serve as a stimulus to seduce the reader into 
learning a new language, "source code"). Fortunately, most purchasers 
were equal to the task; very few had any real problems, and these few we 
helped get started by answering their mail or telephone inquiries. 


After all, SYM users are "sharper" than the typical Apple user; their 
wits are honed by the exiguousness of SYM software, to mix a mean 
metaphor. Besides, manuals are expensive to prepare, print, handle, and 
mail, and the costs must be passed on to the purchaser. Since SWP-1 is 
an "accessory" to RAE-1, all purchasers had the ability tc process the 
source code, which we would rather have than a manual, anyday! Some 
SYMmers have limited their SYMs to BAS-i, opting to omit RAE-1. We 
suggest they reconsider, since RAE-1 is one of the four major strong 
points of SYM-1 (see elsewhere for the other three). A whole brave new 
world will be opened up to them. Besides, RAE is needed for SYM-Pascal! 


AND NOW, AT LAST, HERE IS OUR NEW POLICY ON NEW SOFTWARE: 

To reduce the time delay which has up to now existed between the 
submission of software to be distributed by the SYM -1 Users’ Group = and 
the actual release date, all programs will be tested to see that they do 
work in at least a minimal acceptable way. Minor, non-catastrophic bugs 
which cannot be easily fixed will be annotated as such in the 
documentation; catastrophic bugs will, of course, be cause for 
rejection, and the program will not be distributed. Qniy a very minimum 
Of editing and polishing will be done. RAE readable source code will be 
provided, and the purchaser should have RAE-1 or RAE-1/2 (both are 
functionally equivalent, one comes in a single SK 2332, the other in two 
4K 2316s) installed, and the skill to read and understand, and modify 
and reassemble the source code, if necessary, to eliminate any problem 
areas. 


Only the minimum amount of hard copy documentation will be provided, 
i.e., just enough to get started. This will be at the very least just 
that provided by the author, and which was enough te get us started, and 
at the most we will add just enough to help the purchaser avoid all of 
the trial and error we had to go through to get the program working. 
These programs will be marked as NOT CERTIFIED. We suggest that only 
experienced users buy these versions. As feedback from early purchasers 
is received the program and documentation will be upgraded to make the 
Package suitable for less skilled users, and the program will then be 
marked CERTIFIED. 


SYM-PHYSIS 19:23 


We hope this new policy will help get useful programs out into the using 
community more rapidly, and help relieve the pressure on us. We prefer 
to ship data on SYM cassettes because the procedure for doing this is 
already “automated", and is handled by a relatively unskilled operator. 
Shipping on FODS 5 1/4 inch disks will require a medium surcharge. 
Shipping on CODOS 8 inch disks is not yet automated, and will require a 
surcharge for both medium cost and skilled labor. The same will hold 
true for FODS 98 inch disks when these are installed. The problem is 
that we currently do not have dual drives installed. Try making copies 
on a Single drive system, and you’1]1 understand! 


When a program submitted to us is extremely useful but needs a major 
“overhaul” to bring it up to "commercial" standards we have been sending 
"review" copies to a few selected individuals who will either work with 
the authors, or do the necessary upgrading themselves, in exchange for 
the review copy. This is both bad news and good news. It is lots of 
work for them, but no work for us! Our most active reviewers have been 
Jack Brown and Dick Albers. Now that our new policy will give us the 
time to organize our time better, we hope to use more reviewers and have 
even more time for the "fun" things. 


SYM-PASCAL IS READY 

We just received in the mail from Saturn Software Limited (Jack Brown) a 
review copy of SYM-Pascal, Release 2.9 (16K RAM, cassette based), by 
Ralph Deane. We took a few minutes off to load the cassette, transfer 
the contents to disk, skim the manual enough to like what we saw, and 
entered the program with .G 200 <cr>. We promptly received the prompt: 


SYM—-PASCAL 
COPYRIGHT RALPH DEANE 1981 


25BD-35BD 35C1 
25BD 


3 


If that reminds you a little of RAE-1’s prompt, it should! SYM-Pascal 
requires that RAE-1 be installed, and makes extensive use of many of 
RAE’*’s capabilities. 25BD-358D is the area allocated to the Pascal 
source text; S5SCi is the start of the area where the P-code will be 
deposited during compilation. The 25BD on the line below is the current 
value of the text pointer. These values are all resettable. 


To quote from the manual: "One of the reasons that SYM-Pascal is so 
compact is that it ’sits on top’ of the RAE system and uses its editor 
and file system in the preparation of the Pascal source program. The 
compiler accepts RAE compatible text as its input." How very, very; 
elegant! Note that this is an Integer Pascal (hex as well as decimal). 


We can say little more at this time for two reasons. First, the news- 
letter has highest priority; after the camera-ready copy has gone to the 
Printer, we will have more time (?). Second, although most of Jack 
Brown’s previous software will continue to be available through the 
Users’ Group, SYM-Pascal is available only direct from Saturn Software; 
dealerships are not yet available. 


We do not list prices here because some of you may wish FODS or CODOS 
linked versions, and since Release 2.9 dces not include the source 
listing, you may prefer to have the linking done for you. Actually the 
linking should be easy, since ali I/0 is through RAE. SYM—Pascal 
recognizes PUt and GEt, but will give ‘ED errors on ENt, LOd, and DC. 
These are easily trapped, however, and your existing RAE links to FODS 
and CODOS used directly. 
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BEHAVIORAL SCIENCES RESEARCH APPLICATIONS 


Here is a letter we felt was well worth sharing with all SYMmers! 
College of Physicians & Surgeons of Columbia University | New York, N.Y. 10032 


722 West 168th Street 
January 6, 1982 
Box 124 Psychology Department 
Neurological Institute 


DEPARTMENT OF PSYCHIATRY 


Dr. -R. 

I alec 710 W. 168th Street 

P.O. Box 315 New York, NY 10032 
Chico, CA 95297 Telephone - 212-694-2214 


Dear Dr. Luxenberg: 


Other SYM-1 users who are behavioral researchers will be inter- 
ested to know that in our laboratory we have developed a group of 
programs for the 8-K SYM which present various kinds of visual and 
auditory stimuli on a CRT [or earphones in the case of auditory 
stimuli] and measure, store, and perform statistical analysis on 
subjects' manual reaction times (in milli seconds) to those stimuli. 
Stimuli are presented laterally; that is, to subjects' left and right 
visual fields [ears], as well as presented centrally [binaurally], in 
different conditions. The timing portion of these programs is written 
in assembly language. Programs for presentation of stimuli and for 
statistical analysis of reaction times are written in BASIC. 


For the visual reaction-time experiments, the stimulus consists 
of a dot positioned about 10° to the right or left of a central fix- 
ation dot, or positioned in the center. The dot stays on for less 
than 180 milli seconds. In another experiment we present alphabet 
letters to left and right visual fields for a brief period and record 
subject reaction times. For the auditory experiments we are using 
the TI SN76488N complex sound generator chip to present simple tones 
(monaurally and binaurally in different conditions) through earphones. 


The reaction time button is affixed directly to the SYM. A 
second button, operated by the experimenter, allows the experimenter 
to scratch "bad" subject responses (especially anticipatory responses). 


In another ongoing project we are attempting to send our SYM- 
collected data over the phone lines to another, mainframe computer 
for large-scale statistical analyses. At present, this remains the 
ultimate Chinese (software) puzzle! We will inform you if we ever 
solve it! 


Our laboratory is directed by myself and Rita G. Rudel, Ph.D. 
The programs and hardware modifications were made by Mr. Jack Harris. 
We feel we have only begun to scratch the surface of SYM-1 capabilities 
for driving sophisticated experimental and clinical diagnostic psycho- 
logical procedures. We invite other behavioral researchers interested 
in learning more about our programs or exchanging ideas to contact 


us. 
MD f. 
Lae 
nie Broman, Ph.D. 
Assistant Clinical Professor 
of Medical Psychology 
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Feae- 
Faas- 
Feae— 
Faas— 
F@GC- 
FaGF- 


FGLI= 
F@id- 
Fe@is6- 
FoI3= 
Fe@1p— 
F@1iDb- 
Feira 
F@21- 


29 
4c 
28 
4c 
28 


Ae 2 


sD 
AS 
18) 
Ag 
85 
AS 


8s C 


AQ 


GG14 
6626 
GG36 
6044 
6G5a 
G66 
6a7a 
ease 
6638 
6166 
6116 
6128 
6134 
6146 
6156 
6168 
817a 
6136 
6194 
6206 
6214 
226 
6236 
6246 
G256 
8266 
G27 
6238 
G29 
63648 
63168 
8324 
8336 
6344 
6356 
G3é68 
@s7a 
6326 
G33 
6466 
6416 
6426 
6434 
6444 
6454 
G46 
G47 
6486 
4494 
6566 
8516 
6526 
853 
@544 
@558 
6566 
gS 


B61 
6626 
Gé63a 
Gé64a 
6656 


7 St ie 
e Tt? A CHRISTMAS GIFT! tT 
3 TtTtt TTTTT 
3 I FOR ALL BASIC SVYMMERS I 

2 TE A HE EH EE EE ER 

3 THE ULTIMATE B A 5S I C PATCH. 

3 HR RE i oe oe i eo HE 

3 E. DE LE COURT 

3 AY. DES ERABLES 41 

3 164@ RHODE 5.G. 

3 BELGIUM 

$ TEL? 2-358 48 13 

sWITH IDEAS FROM C.MOSER ¢S.P. #8) 


THIS PROGRAM ALLOWS TO RECALL ANY WRITTEN LINE 
3FOR CORRECTION. DELETION. ADDITION OF ANY CHRES2 
au TH Uy THE HEED OF i ED ¥oR Lf eG 

3 THE WHO LE LINE 

SIT ALLOWS STRINGS WRITTEN IN LOWER CASE 


$1T ALLOWS # FOR HEX HUMBERS 
3ALL OPERATIONS ARE IMMEDIATELY’ VISIBLE 
3 Oe oT HUB, -S GRE EH 


3AM ATTEMPT TO WRITE MORE THAW 72 CHR IS LOCKED. 
sYOU CAH NCW WRITE YOUR BASIC PROGAMS WITH 
sTHE TRIAL AND ERROR METHOD 


sEFROM THIS PROGRAM AT #FaG@ ALONG WITH TRIG AT $FéC7 


-BR $F aaa oF ELSEWHERE BUT TAKE CARE 
-NC #6368 OF THE #$F@ AND ##F1 REFERENCES 
-Os 


BASUEC .DE $@1 
TRIGL .BDE #C4 


EDFLG .DE $F5 

SAVEY .DE $F6 

INDEY .DE $F? 

sBASIC USES $a@ TO $EF 
BUFFER .DE #16a 

MOMU -DE #8983 
ACCESS .DE #8B36 
RESHAF .DE $8162 
INTCHR .DE #8A5& 

TOUT .DE *SAAG@ GR ANOTHER GUTPUT ROUTINE 
CRLF -DE #834b 

TECHO .DE #A653 

INVEC .DE #A661 
QUTUEC .DE #A6é4 

BASIN .DE #bEép 

BASWR .DE $C27eE 


S5TART LINKS 

BASCLD JSR SWIVEC 
JIMP BASIN 

BASWRM JSR SWIVEC 

JMNP BASWR 

JSR ACCESS 

LDA #L. INPUT 


INVEC 

LDA #H. INPUT 
INVEC+1 
LDA #L.TRIGIN 
STA *TRIGL 
LDA #H. TRIGIN 
STA *TRIGL+1 
LDA #6 


START HERE BASIC COLD 
RETURN HERE WITH .G @ 


SWIVEC SWITCH VECTORS FOR BASIC 
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F@Z3- 
Fazs- 
Faze— 
FezA- 
Fe2C- 


F@2D— 
Fa@2E- 
F@2F— 
F@31- 


FaSy 
FaSA- 
FaSC- 
F@SE- 
Fed i- 
Feds 


Fade 
Fede— 
Fede 
Fadc— 
F@4E- 
FaSi— 
F@Sd— 
FeSe— 
FaS9— 
FeISE~ 
Fase 
Fe61- 


FeeA- 
Fesc— 


Feee- 
Fa7o- 
Far2- 
Fars 
Fars 
F@?6- 


Fare- 
FarA- 
Fa@FC- 
Far7D- 
Fega- 


Fag2- 
Fags — 
Feae— 
Freee 
Fase- 
FaSE~ 
Fear - 
F@gi- 
Fag3- 


Fags 
Fear— 


$5 
8b 
Ap 
&5 
6a 


63 
63 
At 
Fa 


oa 
wy 


38 
4c 


AD 3 


85 
28 
28 
25 


cs 
be 
Ca 
Fa 


= 
PA 


4c 
AD 
8b 
AD 
8b 
Bo 
93 
28 
ce 
Ca 
ies) 
Fa 


cs 
0a 
ee 
14 
C3 
18 


c9 
ba 
ce 
24 


Ba 


e4 
c3 
as 
Bg 
99 
ce 
ca 
Da 
Fa 
cs 


De 


Bes 
B31 
83926 


ase 
asa 
Lacie 
1g1e 


1a4e 
1456 
1666 
lara 
1888 
1a3e 
1168 
1114 
1126 
1136 
1148 
1156 
116a 
117@ 


1298 
1308 


STA 
STA 
LDA 
STA 
RTS 
CUTPUT LINKS 


TMPLUT 


#IHMDEY 
TECHO 
#328 
#+#EDFLG 


#IHNDEY 
GETCHR 
+EDFLG 
=+4 
> READBU 
#220 
+*EDFLG 
JSR RESOUC 
GETCHR JSR INTCHR 
#ETF 
FESCAPE In 
FTHEHN ESCAPE RETURHS 
sOR CR RETURNS 
ESCAPE CMP ##16 
BHE CTRLH 


cPY #4 
BEQ =+7 


JSR CRLF 

JMP READBU-2 
LDA #L.WRITBU 
STA CUTVEC 
LDA #H. WR ITEL 
STA QUTVEC+1 
LBA LIST..¥ 
STA BUFFER.‘ 
ISR TOUT 

Tr tH Ww 

CRY #4 

BHE CMDLST 
BEG GETCHR 


CMDLST 


CTRL 
CTRLH CMP #3 
BHE CTRLI 
DEY 
BPL 
5 H nd 
BPL GETCHR 
I MOVES 
CMF #9 
BHE CTRLE 
IH’ 

ISR TOUT 
BCS GETCHR 


ITOUT 


sCTRL 
CTRLI 


ITQUT 


CTRL 
CTRL2 STY +IHGEY 
CMP #417 

BHE CTRL 
LDA 
STA 
TH 
CRY. 
BHE 
BEG 


MOWDWH 
BUFFER.‘ 


#F2 
MOWUDIM 
PRTBUF 


CR RECALLS LINE In 


BUFFER+1.‘’ 


LET BUFFER IHDE* = @ 
INHIBIT ECHO 


NORMAL FLAG 


DISCARD A AWD F 


BUFFER EMPTY’ 


FLAG = EDIT MODE 
BASIC READ THE BUFFER 
RESET EDIT FLAG 


RESET OUTPUT VECTORS 
INPUT 1 CHR 


FOR EDITION. 
THE WHOLE LINE TO BASIC 


THE PART AT THE LEFT CIF THE CURSOR. 


EDIT 1 LINE 


UALIC ONL’ AS FIRST CHR 


CTHERWISE RETURH 
CHANGE OUTWEC TO 
WRITE IH BUFFER FROM LIST 


PUT"LiST® IN BUFFER 


PUT LIHE MUM. IH BUFFER 


H MOVES THE CURSOR LEFT IN THE BUFFER 


LEFT TAB 


MALIO OWLY IF Vo=@ 


THE CURSOR RIGHT IM THE BUFFER 


FIGHT TAB 


2 DELETES THE CHR AT THE CURSOR 


DELETE A CHR 


MOWING BUFFER 1 LEFT 


TILL EHD OF BUFFER 


7CTRL G@ ALLOWS INSERTION OF A CHR AT THE CURSOR 


CTRL@ CMP #411 
BHE CTRLY 


OFEH A HOLE 
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Fags— 
Fege— 
Fesc- 
Faor— 
F@AZ— 
FeA4— 
F@AG- 
F@Ag— 
F@AB- 
FeAC— 
FeineE- 
FeBa- 
F@B3- 
F@BS- 
FeB?— 
Fa@BA- 
FeBC-— 
F@BF- 
Fece- 
Fecz— 
Faecs— 


Fac7— 
Focs= 
Faece— 
Feco- 
Fecr- 
Faepi- 
F@Dps— 
Feps- 
FaeDr- 
FaD3— 
Faepc— 
F@DpE- 
FGE1-— 
FGES- 
F@EE-— 
F@ES— 
FOEC— 
FGEE— 
FerFa— 
FGF3- 
Fa@F4— 
FaF?- 
FOFo- 
FO@FE- 
FGFE- 
F18a@— 
F1igz- 
Fia4— 
Fie7r- 
F1l@g- 
Fisc- 
F1ige- 
Fiig- 
Fiit2~ 
Fii4- 
Fii6=- 
Fiig= 
FIin- 
Flic- 
FLIE- 
Fi2a- 
FPiZs= 
Fi24— 
Fi26— 


Aa 


ee 


B? 
99 
C4 
Da 
Ad 
BS 


pI 
cod 


cs 
Fa 
268 
De 
AZ 
268 
A 
28 
e3 
C4 
Da 
4c 


HODOADHADHDADeA 
POO OO On 


Lomti 


Fe 


1 


al 


4) 
MOWUP DEY 

LDA 

57A 

cPpy 

BHE 

PRETBUF LDY 

LDA 

1398 IH" 
1468 CMP 
1414 BE 
1426 JSR 
1426 BHE 
1446 MOUCUF LDA 
1456 Jsk 
1464 LDA 
147°@ JSR 
1488 DEY 
1498 cPY 
1588 BHE 


JGETCH JMP 


CTRLY CMP 

BHE 

1554 LDA 
15668 STA 
157e LDA 
15s STA 
1598 LDA 
1666 5TA 
1614 LDA 
1626 STA 
1636 LDA 
1646 STA 
1658 LDA 
1666 STA 
167°G JSR 
168@ IMP 
169@ STCCHRE CPY 
176 BEG! 
1716 STA 
r2@ TH’ 
1738 JSR 
1748 CMF 
1758 BHE 
1768 JSR 
i7re AWD 
17 Se CMP 
1798 BEG 
1see@ JMF 
1814 LDA 
Z STA 
LDA 

1s4a BHE 
125@ HOTHES CMP 
1964 BHE 
1976 LOY 
188@ READBU LDA 
1e9a TH" 
198e CMP 
1914 BHE 
1926 LDY 
1926 STA 
13948 DE’ 
1356 BHE 
1968 NEXTCH STY 


#71 


BUFFER.‘ 
BUFFER+1.' 
*ITHDE'Y 
MOL 
*INDEY 
BUFFER.‘ 


#300 
MOUCUR 
TOUT 
PRIBUF+2 
#28 
TOUT 

#5 

TOUT 


*INDEY 
NQUCLURA? 
GETCHR 


#E19 
STOCHR 
#440 
+*BASUEC-1 
#L. BASWRM 
+BASWEC 
#H. BASWEM 
#BASUEC+ I 
#L. INTCHR 
THVEC 

#H. IHTCHRE 
IHMVEC+1 
#430 
TECHG 
RESOUC 
MOrld 

#72 
JIGETCH 
BUFFER.‘ 


TOUT 

#°d 
HOTHE? 
INTCHR 
#ETF 

qe" 

=+e 
ESCAPE 
#°u 
BUFFER-1.'? 
qe" 
STOCHR 
#200 
JIGETCH 
#4 
BUFFER.‘ 


#260 

HES TCH 
#F? 
BUFFER. '' 


INDE 


FROM EHD OF BLIFFER 
MQUIHG BUFFER 1 RIGHT 


REFRESH THE DISPLAY 


RESET THE CURSOR 


GOING BACK 


SCTRL YY JUMPS TO MOMITOR.RETURH WITH .G @ CR 


RETURHM TO MON 


SET RETURN VECTOR 


RESET INPUT VECTORS 
ALLOW ECHC 
RESET OUTPUT MECTORS 


STORE HOT Tod FAR 


ALLOW # FOR HEX 


NOT ". THEN PROCEED 


WHEN CR 
TO BASIC 


SEND BLFFER 


FILL BUFFER WITH CR 
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Fi28- C9 aD 197°@ CMP #34D 

Fi2A- 4C BS 81 1986 JMP RESSAF ALLOW FOR LOWER CASE CHR 
Fi2D- 24 FS 199@ WRITBU BIT +*EDFLG LIST WRITES HERE WHEN EDIT 
Fi2F- 36 GA 2686 BMI HOPRT DONT WRITE AFTER 2ND CR 
Fi3i- C9 @A 2614 CMP #36A IGHORE LF 

Fi33- F@ @é 2026 BEQ NOPRT 

F1i35- C9 @D 2034 CMP #3@D IGNORE CR 

F137- D@ 3 2048 BNE =+4 

FSI BG iFS 2854 ASL +EDFLG BUT ADIUST FLAG 

F1iSB- 66 266@ NOPRT RTS 

Fi3sc- A¢d F7 2874 LOY *INDE'’ 

Fi3SE- 939 @@ G1 24c6 STA BUFFER, ‘’ WRITE LINE IN BUFFER 
Fi4i- E6 Fr 2696 INC #IHDEY 

Fi43- 4C AG SA 21466 IMP TOUT AND PRINT 


Fidé- 4C 49 53 211@ LIST sea, “CESt* 


F149- 54 
F1idA- AS AG 212@ RESOVC LDA #L. TOUT RESET VECTORS 
F1l4C- 8D 64 AG 2136 STA OUTVEC 
F1idF- AS SA 2144 LDA #H. TOUT 
Fi5i- 8D 65 A&B 2154 STA OUTVEC+1 
Fi54- 608 2164 RTS 
2170 BASIC TRIG PROGAM 
PANGS a) ee 


+ 
2194 TRIG -DI BASCLD+#6C7 
220@ TRIGIN .DI TRIG+#A1 


INCIDENTALLY. THANKS TO DR. G. STRUBBE *5.P.#9). 
I IMPLEMENTED & CONTROL KEYS AT THE & FREE PLACES 
OF MY KTM 4@ BOARD.IT IS WUNDERBAR! ! 
THE KEYBOARD ENCODING TABLE STARTS AT $7FA UP TO £879 
I FOUND IT THANKS TO HISSINK“S DISASSEMBLERCS.P.#5> 
THAT I HAVE,REWORKED A LOT FOR EASIER USE 
AND MORE FUNK IT TRACES ALSO). 
HEREAFTER MY SUBSCRIBTIOGN RENEWAL. 
Hea RAPS) TRUE re R 


hove THAT PERSONALLY | JoWT Linke BASIC 
Titlh PROGRAM WHS MADE FoR MY DAVENTER, 


A SHORT, BUT VERY SWEET, COMPUTER ASSISTED INSTRUCTION PROGRAM 


Dear M. de le Court: 


Thank you for the Christmas gift (above) for all BASIC SYMmers. While I 
have not tried your program out personally, it looks great, and mest 
BASIC SYMmers will especially appreciate its line editing capability. 
This, plus Jack Brown’s earlier published line renumbering program 
should allow one to really polish up the appearance of their BASIC pro- 
grams. 


Below is a program for your daughter, and all SYM BASICers, which I did 
not edit or "polish" (except to correct one misspelled word) in any way, 
so that SYMmers can practice using your line editor on it. 


Sincepply, 


EDITORIAL NOTES TO CRISWELL’S CAI BASIC PROGRAM 


This, as yet unnamed, modest, mild, unassuming, little program is far 
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more powerful and versatile than at first glance it appears to be, and I 
strongly recommend it to all BASIC users. It was submitted by Dr. Hugh 
€. Criswell, another behavioral researcher, whom I hereby formally in- 
troduce to Dr. Broman (see her letter on page 25). 


Dr. Criswell also submitted the necessary object code to permit saving 
and recalling data files (see p. 7:17), and a set of sample questions, 
with answers, as a “saved" data file. The questions so well illustrate 
the versatility of the program that we provide them, following the 
LISTing, as a "puzzle" for the reader. We used the Alphanumeric Verify 
published in an earlier issue to “dump” the data file in ASCII format. 
Readers might wish to see if they can figure out the questions and 
answers from this dump. 


Studying this string file dump will certainly help provide an 
understanding of how BASIC processes and stores its strings. Remember 
that BASIC stores all generated strings and string arrays from the top 
of the memory downwards. 


Although the program is far from self-explanatory, it is sufficiently 
simple in structure to be easily understandable by beginners, and is 
highly recommended to them as a useful way to learn how to use string 
arrays. 


18 DIM AS(26, 28) ,B(28) 
11 REM A$ IS THE QUESTION MATRIX,A IS # OF LINES, B IS ANSWER. 
15 DATA WRONG! TRY AGAIN,NOPE! REDO IT YOU TURKEY, INCORRECT! REPEAT IT 
16 DATA “POOR ANSWER TRY AGAIN!" 
26 L=1 
21 PRINT"S=STORE, R=RETRIEVE" 
38 PRINT"TYPE W TO WRITE A QUESTION OR L TO LOOK AT ONE": GOSUBS@8B 
49 IF X$="W" THEN GOSUB1966 
5@ IF X*="L"THEN GOSUB2899 
Si IF X$="S"THEN X=USR(&"1C28", &"G888") 
52 IF X$="R"THEN X=USR(&" 1C7B", &" 9898") 
68 GOTO38 
1989 3=6 
1961 PRINT“QUESTION #";L,FRE(8) 
1918 PRINT"TYPE A QUESTION AND END IT WITH A ! AS THE LAST LINE" 
1915 J=J+1 
1928 GOSUBS@9G: AS(L, J) =X 
1938 IF AS{L,J)<>"!"GOTOIG15 
1848 PRINT"THE RIGHT ANSWER IS": GOSUBS@@:B(L) =x 
1958 L=L+1 - es 
1955 IFL>26THENGOSUB368S 
196@ RETURN 
2068 PRINT CHRS(27)+"E"; 
2081 I=INT((L—-1) #RND(1)+1) 
2695 REM THIS ENTERS A QUESTION INTO THE POOL 
2018 J=13X=S@R(2) 
2612 PRINT"QUESTION #"31,FRE(®) 
2628 PRINT AS(I,J) 
2036 J=J+1 
2649 IF AS(I,J)<>"!"GOTO2828 
2858 PRINT"WHAT’S YOUR ANSWER?" 
2668 GOSUBSSES: A= 
2078 IF A=B(1)THENPRINT"RIGHT! GOOD JOB":RETURN 
2985 READ Cs 
2696 IFC%="POOR ANSWER TRY AGAIN! "THENRESTORE 
2188 PRINTC$:GOTO2969 
3669 PRINT"JUST A SECOND, I°M MEMORIZING THESE QUESTIONS” 
39B1 X=USR(&" 1028", &"9BGS") 
3819 L=5: RETURN 
50GB X$=""2X=8:We=1 
581 REM GUARDED INPUT AND BACKSPACE 
SYM-PHYSIS 19:38 


5829 Y=USR(-38129, 9) : Y=127ANDNOTPEEK (249) 


5621 IFW>254THENRETURN 


5922 W=W+1 


5@39 IFY=13THENPRINTCHRS (13) s RETURN 


S@35 XG=X$+CHRS (Y) 


5849 IFY=95ANDLEN(X$%) >@THENGOSUBS 199 
5060 IFY>46ANDY<S8THENX=VAL (X$) 


5979 GOTOS829 


Sig® X$=LEFTS(X$,LEN(X$) —2) s PRINTCHRS (8) ; CHRS (8) 5 s RETURN 


ASCII DUMP OF DATA FILE (FROM $@CD®@ —- $114F) 


eneee -SS44L!5, 
2,4, and 5 arec 
orrect. you f 
inish 2@ questic 
ns.4, Typing ico 
mg questions may 
run you out of 
memory befores, 
Control c will 
cause a crash. 


he rightanswer t 
o this Note: 

You do not hav 
e to use a multi 
ple choice forma 
te! in an occa 
sional " sign or 
use bad grammar 
-) answers or 
just use one li 


fore all2, # of 
hours it took t 
Oo write this !"a 
#4! programi, # 
of bytes of mem 
ory remainingnum 
ber? What is 
the strange num 
ber that you see 


after the quest 
ne for them, and ion!4, 28 lines 
that you can th or less..allrig 


crash.2, Typi 
ng a question mo 


re than 2@ lines rowé, (this is ht, so it’s a ba 
long will cause just to show tha d question.3, 3¢ 
a crash.1, t you do not hav lines2, 2@ line 
Typing return wi e to give 4 poss si, 19 linesrun 
thout first ente ableS, none of ning this progra 
ring data will c the above4, all m; How many line 
ause a What bug of the above S can a question 
s are left in th of the bugs are have? Just 


worked ocut.3, 

# Go times the pr 
ogram can be exp 
ected to bomb be 


is program?! ques 
tion is 17.as lo 
ng as the answer 
is a number. T 


in case you didn 
7t look at the D 
IM statements be 
fores.2.V.j.i.X. 


ON SYNERTEK’S FLOPPY DISK CONTROLLER (FDC-1) 

Published below are extracts from a letter from Joe Hobart, and a 
manuscript describing his experiences with the FDC-1. Joe and I are two 
of the six individuals outside of Synertek who have been "lent" pre- 
production samples for evaluation (don’t know the other four, since 
they’re not SYMmers!). The "Jared® referred to in the letter is Jared 
"Jerry" Larsen, of Synertek Systems, a great person to work with. 


My review follows Joe’s, but first let me say this: I used to assert 
that there were THREE major “selling” points for the SYM; SUPERMON 
(with all its vectoring and user available utilities), RAE-1 (with or 
without its extensions, SWP, DISARAE, XREF, etc.), and SYM’s richness in 
I/O resources (3-6522s, 1-6532). There will soon be a FOURTH major 
strength: the FDC-1 disk system! 

3465 North Andes Dr 

Flagstaff, AZ 86981 

(682) 779-2119 


Hi Lux: January 15, 1982 


Here is the manuscript of my first experiences with Synertek’s new 
FDC-1. I hope it is suitable and not too late for inclusion in the next 
issue of SYM-PHYSIS. I do not know when Synertek will have the 
production versions available for sale, but this information seems very 
timely. 
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This is my first disk experience and I must say that there were a few 
frustrating moments. I zapped the controller with static electricity or 
something and spent a week trouble-shooting it without any kind of a 
schematic. I also spent some additional time getting all the jumpers in 
the Shugart set to the normal configuration. My brother must have had a 
rather unusual controller when he was using this drive. It was really a 
great relief when I studied the disassembled listing for the FDC soft— 
ware, found addresses at $F999-F199, removed my EPROM, and heard the 
drive find track 9d. 


I hope that Synertek does supply the cables to go between the drive and 
the controller. I had to modify a standard Shugart cable; those press— 
on S@ pin connectors require a LOT of force to seat properly. I had to 
use a large bench vise to do the job. 


The manuscript only hints of some of the problems I encountered in 
getting the disk system running. I attribute most of the problems to 
inexperience with the system. I remember similar problems when I first 
got SYM-BASIC running (especially with the TCP). As I became used to 
the system, the number of problems decreased very significantly. I am 
sure the same thing will happen with the disk system. 


One of the most difficult areas is in getting the system to work in RAE 
with both disk and cassette. Jared suggested toggling $EE to get the 
cassette to work, but this does not always work. I have not fully 
checked all possibilities, but it seems that the cassette will not work 
if a disk save (ENter) has been done since RAE initialization. This 
will require some experimenting. I still do not understand what was 
happening to prevent me from reloading BASIC programs, but that problem 
seems to have gone away since I put TCP back in EPROM. Speaking of TCP, 
I just do not know enough about the SYM to be able to make TCP and SYM— 
DOS work together. Perhaps one of the users will have some ideas. 


Jared did ask me to pass along that you should not get an error 
indication when you verify data on a disk that was taken from a changing 
source. Apparently you were saving data from a clock register and then 
expecting to see an error on the verify. From my understanding of disk 
systems in general, I think that the verify only compares the data on 
the disk with the CRC that was derived from the data sent to the disk. 
In the IBM format this CRC is recorded in each sector near the data. I 
have two known bad disks from our PDP-11 at work. The verify does 
detect the bad areas on these disks. I have not been able to use either 
disk past the bad area yet, but I think several tracks have been damaged 
by a poorly aligned drive. 


Jared did pass along some information on how the R/W routines work. My 
next project is to modify my fig-FORTH to work with the disk. I did 
send Jared a copy of my fig-FORTH. After some problems getting it to 
lead on his MDT 1999, he reports it works fine. By the way, Sandy McKay 
tried my DRAM fix of an extra ground wire between the 6592 ground and 
the memory ground bus with excellent results. Apparently all his memory 
problems and the system crashes when he turned on his teletype just 
vanished. Sandy used a long piece of wire (6 inches) too. 


Enough rambling. I really do like having a disk system at last. 
Best regards, 


/s/ Joe Hobart 
EXPERIENCES WITH SYNERTEK’S NEW FLOPPY DISK CONTROLLER 


For the past two weeks, I have been using an engineering prototype of 
Synertek’s new floppy disk controller. During this time the controller 
has performed very well, providing fast and reliable mass data storage 
by interfacing an eight inch Shugart drive to my SYM-1. Here are some 
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observations and suggestions for using this new controller with expanded 
systems: 


Since I have had difficulty using dynamic RAMS with my SYMs, I was very 
apprehensive about the physical separation between SYM and memory caused 
by putting a six inch controller between them. My fears were unfounded; 
the system works beautifully with the controller attached to the expan— 
sion port and either a 32K Beta memory board, a 32K static memory board, 
or a 4K static memory, attached to the controller board. Based on exper— 
ience with my dynamic memories, an additional ground wire between one of 
the SYM’s 6592 ground pins and the memory ground bus would help cure any 
problems that develop. 


The interface between SYMDOS and SUPERMON is very smooth. A simple .G 
9996 links the two and adds disk save, load, format, and list directory 
commands to these of the monitor. It is really nice to be able to load 
my 739@ byte FORTH in about 1 and 1/2 seconds as compared to about one 
minute required for a cassette tape load. The FDC-1 was designed to work 
immediately with a 4K SYM. For use with larger memory, it is convenient 
to relocate the disk buffer/workspace away from the $@E89-$@FFF default 
location. This is accomplished by changing the contents of $A62A-$A62B 
to point at the new buffer location. 


The FDC also works smoothly with RAE-1. Once in RAE, a simple >RUN $9963 
links SYMDOS to RAE and provides disk ENter, LOad, LOad and Append, and 
assemble multiple source files. It is while assembling multiple source 
files that the speed and reliability of a disk over a cassette system 
become especially apparent. I vividly remember some strong frustrations 
with my cassette system while repeatedly assembling fig—-FORTH during the 
debugging stage. Assembling these same source files from disk was a very 
pleasant change. 


To take full advantage of a memory larger than 4K, either the buffer lo— 
cation must be changed or the RAE memory allocations must be juggled to 


avoid this buffer area. A minor annoyance that will decrease as a user 
becomes more disk based, is that the cassette interface is not readily 
available once SYMDOS is linked to RAE. This problem can be partially 


circumvented by toggling the contents of memory location *%@@EE from 91 
when using disk to 9@ when using the cassette interface. 


Interfacing SYMDOS with my BASIC was not as convenient as with SUPERMON 
or with RAE. The FDC uses $F99@ —- SFIFF which conflicted with my EPROM 
containing Brown’s Super TCP and Renumber and the Synertek Trig Patch. 
To resolve this conflict, I modified the contents of the EPROM so that 
it occupies only $F29@-$F7FF and disabled the EPROM whenever $F999-$F1FF 
is addressed by using 1/4 of a 74LS82 NOR gate in the circuit below: 


+5V 
A? 


2 EPROM pin 18 
ALD 


GND 


EPROM pin 18 (chip enable) must be disconnected from ground. I connected 
wires to AY and Aig at pins 19 and 22 of the SYM ROM sockets. 


I mounted the 74LS@2 over U24, and soldered pins 7 (GND) and 14 (+5V) to 
the same pins of U24. All other pins are bent upward and away from U 24. 
A9 and A1B go to pins 11 and 12 and the output is taken from pin 13, but 
there are three other combinations, as this is a quad NOR chip! 


Once in BASIC, an X=USR(&"999G",B) adds disk SAVE and LOAD commands. 
SYM-PHYSIS 18:33 


Synertek also added #M to allow easy escape to the monitor so that disk 
format and list directory commands are accessible. Since BASIC is very 
inflexible in memory addressing, the disk buffer must be moved to take 
advantage of a memory larger than 4K. BASIC’s top of memory and string 
pointers at $4983 and $9987 must be modified to protect the disk buffer 
area. While working on the modification to my TCP, I encountered some 
problems with not being able to reload programs that had been saved with 
different BASIC top of memory and string pointers. Once I finished the 
modifications to my TCP, I had no further problems. I recommend that no 
serious program saves be done until memory parameters are stable. 


I saw no easy way to have SYMDOS and Brown’s TCP operate simultaneously. 
To simplify access to disk—-linked BASIC, I added a CONTROL D function to 
TcP. The source listing shows the changes required to Brown’s TCP to 
enable the escape to SYMDOS. Return to TCP is by either X=USR‘(9,9) from 
BASIC or .G@ from SUPERMON. This approach has the merit of being simple 
to implement. I would like to see how others handle this interface. My 
TCP resets all necessary vectors, et cetera, each time it is entered. 


Synertek should be congratulated for making available a relatively low 
cost disk controller that works with SUPERMON, RAE-1, and BAS-1 without 
requiring any modifications to the SYM-1. It is delightful to be able to 
load programs like my "Pirates’ Adventure” in seconds instead of minutes 
required by cassette tape. 


LUX’?S COMMENTS ON THE FDC-1 

The FDC-1 software will handle one or two, single or double sided, 
5 1/4" or 8", drives. 5S 1/4" systems may be single or double density; 
8" systems are restricted to single density (the on-board crystal is 
16.9 MHz; this is part of the restriction). 


The hardware is factory—jumpered for 5 1/4" drives; instructions for 
re-jumpering for 8" systems are provided. Joe Hobart is working with 8" 
drives, Lux with 5 1/4" drives. Both report success and satisfaction. 


5S 1/4" systems use 34 wire cables from controllers to drives, 8" systems 
use 5@ wire cables; separate connectors for both sizes of cables are 
Provided on the controller. Actually only a single, either 58 or 34, 
pin connector is required. HDE uses a 34 wire cable even for their 8" 
systems! It turns out that the 26 wire pinout used for the Apple’s Disk 
II, and the "“Shugart Standard” 34 wire pinout for 5 1/4" drives, are 
contiguous subsets of the "Shugart Standard" 5S@ wire pinout for 8" 
drives, with at most one exception, which is easily taken care of with 
jumpers. The "oddball" signal is related to differences between hard 
and soft sector systems, e.g., Shugart 89 vs 841, or 859 vs 851. 


The software is contained in a (4K) 2732 EPROM (remember this is not the 
same as the 2532!); I must “upgrade” my EPROMmer to handle these! This 
software resides at $9999, and might be considered as the long-awaited 
SUPERMON "Future Expansion" plus "extensions" for BAS-1 and RAE-1. From 
SUPERMON a .G 9996 modifies URCVEC to point to the commands .S3, .L3, 
-S9, and .L7, for saving, loading, formatting, and obtaining file 
listings. The parameters permit using up to ten character filenames, in 
addition to the usual numerical parameters. 


The default values for the disk buffer area are at the top of the first 
4K of RAM; no off-board expansion is required! The defaults could be 
lowered to fit a 1K system, if you would really want to! As Joe pointed 
eut, the defaults are in SYSRAM, and should be raised for BAS and RAE. 
Since the program is in EPROM the best bet is to burn your own, with 
your own choice of defaults. Only a preliminary manual with neither 
schematics nor source code is as yet available. 


Installation was extremely simple; the whole job took only five minutes. 
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The test board came with a 44-pin connector soldered to one of its sets 
of edge "fingers" (the other set passes the signals straight through for 
further expansion). We read the manual, soldered two leads (red and 
black coded) to terminals on the board for direct connection to the +5 V 
power supply (that’s all!), mounted it on the expansion connector of an 
8K SYM, installed a known-to-be-working 5 1/4" drive system (just by 
connecting the drive cable), and went on to test the system. 


Then came two hours of increasing fustration with peculiar responses! We 
finally gave up with the hardware and began on the software. We 
disassembled the program and almost immediately found the solution to 
our problem. The controller’s control registers were assigned addresses 
at $F999 and up, where we already had an EPROM installed. Removing the 
EPROM did the trick; the system worked as described in the preliminary 
manual. 


The operating system treats the disk as a long serial medium and stores 
successive files sequentially. If a file name is reused the previcus 
file with that name is not deleted; it is just no longer accessible, 
last-in-only-out! Utility programs for disk compacting and copying are 
promised, but did not come with the preliminary documentation we 
received. 


The save-with-verify mode did not operate as we had come to expect it 
should. FODS includes a compare-disk-to-memory after each read or 
write. Several times this feature has informed us that cur RAM was 
flakey because of a poor socket contact; we like the security of the 
compare. 


We do not like the "wasting" of the 2K block at F999 for just four 
register addresses $F999-$F99S and the page $F1@G-$FiFF. These could 
have been assigned within the $9999 block, with on-board logic to permit 
these addresses to “over-ride” the EPROM. Joe’s fix is fine, but we 
will also investigate the possibility of reassigning these controller 
registers to the $A88X or $AC8X area (lots of "wasted" space there now), 
where all such I/0 devices should go, when we get around to reburning an 
EPROM with more suitable default values, most likely for an 8K system. 


The program now occupies %9999-$9779 and $9899-S$9FFF; there is still 
lots of room available for more niceties in there. This would be a good 
place to patch in the now unused USR® through USR7 as well as modifying 
the "useless" Jump Entries, J5 —- J7, available in the existing portion 
of SUPERMON. 


We have asked some of our product "reviewers" to examine the existing 
software to see what modifications would be required to permit reading 
and writing Apple II and/or CP/M (at least ASCII files) compatible 
disks. Since no higher level file management capabilities (even the 
Simpler utilities such as COPY, PACK, etc., are not yet ready) exist in 
SYM-DGS, the opportunities exist for adapting an existing DOS (with 
built-in compatibility) or creating a "Superior" one by incorporating 
the best features of various existing DOSes. 


MORE ON DISKS AND MEMORY EXPANSION 

The FDC-1 is a 41/4x 51/2 inch "card" with a "Reverse KIM/SYM" 
pinout, intended to be installed extending outwards from the expansion 
connector. Our test board had a 44-pin connector soldered to it which 
was used for our first tests. This was later desoldered and removed, 
and a pair of 44-pin connectors soldered together, back-to-back, was 
used instead, to permit testing several alternate configurations. 


Three of these alternate configurations we plan to try are as follows: 
First, a 4K SYM with the 32 K Beta Board "tucked under" and the FDC-1 
also mounted underneath the SYM with a short cable attaching it to the 
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"free" set of edge fingers on the Beta Board, in a very compact package. 
This package, suitably encased, will be mounted atop a pair of 5 1/4 
inch drives, also suitably encased. This configuration would be similar 
to our current FODS based system. 


Second, an 8K (Blalock Expander Kit) SYM, plus the Quest "Motherboard" 
Expander Kit, in which will be installed the FDC-1 and the Turpin 
ColorMate Board (also Reverse KIM/SYM pinout) for color graphics. The 
third is the obvious one, which is too "sSpaced-out", in our opinion, 
mounting the FDC-1 directly on the expansion connector with the Beta 
Board extending outward from it. This approach we will try only to 
confirm that it can be done, as per Joe Hobart’s report above. 


Joe seems to have found an easy solution to the problem so many of us 
ran into when we tried to add memories such as the 32K Beta Board with 
too long an extension cable. While the Beta Manual recommended bringing 
in a direct +5 V line because of possible DC drop and heat in the narrow 
printed traces, it did not explicitly mention the same situation would 


eccur in the GND traces! In addition there certainly would be "AC" 
drops, i.e., ground loops, for transient signals, which could, and did 
cause sub-marginal performance. Thanks, Joe! The FDC-1 has separate 


terminals to which both power leads are to be brought; apparently a very 
good engineering practice to follow in multi-board systems. 


WHEN AND WHENCE THE FDC-1? 

Synertek Systems Corporation has offered the SYM-1 Users’ Group ex- 
clusive rights to manufacture and distribute the Floppy Disk Controller, 
FDC-1, in consideration for our completing all of the necessary 
supporting documentation, and providing all required Customer Service 
and Support for the FDC-1, on a long-term, continuing basis. 


The latter we can do; it would merely be an extension of what we have 

been doing for SYM-1i, KTM-2, BAS-1, RAE-1i, etc., these past two years. 

To be rather immodest about the matter, SSC is offering us the FDC-1 

product line because they feel we have the ability to support it in the. 
manner to which they have become accustomed! 


Software and System Support are cur areas. The idea of setting up a 
hardware assembly line facility never entered our thoughts, and is still 
something we are not yet ready for. Qn the other hand, the sorting and 
gathering of the component parts inte "build it yourself" kit packages 
we could easily do. The assembly and checkout of "ready-to-go" boards 
is something we would have to grow towards. 


We plan to place a firm order with SSC by 1 April for a specific initial 
number of boards and components for delivery to us by 1 June 1982. We 
will also place an order for both 5 1/4 and 8 inch dual-drive cables 
with another vendor. Qur aim is to produce a complete package, in- 
cluding all connectors and dual-drive cables (these alone are normally 
$35.99 and up!); all you need add are the drives (with power supplies, 
and power cables) to have a fully operational system. 


Remember, though, that the FDC-1 will be available at first only in com- 
Plete kit form. It should be easy to assemble, since in addition to the 
sockets and connectors, there are only five resistors and six capacitors 
to be soldered in. Schematic and layout drawings will be provided. 


The kit price should be around $175.99 (US funds), including shipping, 
USA or Canada, with an additional $6.90 for airmail to Europe, or $8.99 
for airmail elsewhere. If this interests you, please drop us a note; 
your feedback will let us know how large an initial order to place, and 
what ratio of & inch to 5 1/4 inch cables to order. Issue No. 11, which 
will reach you by mid-April, will give firm prices, detailed specs, and 
full ordering information. Deliveries should begin in mid-June. 
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ANNOUNCEMENTS 

We have accepted an invitation from the Department of Electrical 
Engineering of the Queensland Institute of Technology to be the keynote 
speaker at "A Two Day Design Workshop on 6592/6899 Microcomputer 
Systems", to be held 14-15 April 1982, in Brisbane, Australia. Papers 
will be presented by Bob Tripp (MICRO), Rodnay Zaks (SYBEX), a Rockwell 
representative, and a number of Australian researchers. We are looking 
forward to the traveling, the workshop, the “vacation”, meeting many of 
our Australia/New Zealand/Tasmania friends, etc. 


From 19 April to 1@ May, approximately (see above), the Users’ Group 
office will be “partially open” on Mondays, Wednesdays, and Fridays, 
from 1GAM to 4PM, Pacific Coast Time, to handle telephoned and mailed 
"business" matters. Unfortunately, there will be no one available to 
answer technical questions, or to help solve technical problems. These 
will be back-logged till our return. 


Since we are OEMing a number of special purpose SYM based systems, we 
regularly buy various selected items at OEM Prices in quantities 
sufficient to get good price breaks. These include Epsons (all models), 
hard-to-get connectors, special purpose chips, etc., and always have a 
few around. Because prices and stocks on hand are variable these are 
not listed in our flyers. (Call or write if you have special needs; we 
may be able to help. 


ADVERTISING POLICY 

We have been asked many times if we would accept advertising, and, if 
so, what our rates were. Up to now our answer has been “No, but if you 
will lend us the equipment for test, or lend us a copy of the manual, we 
will review the product in an *up-coming’ issue." In most cases we so 
liked the product that we purchased it for our own use, and even became 
dealers for it, if possible. The testing did take time, however, and 
the reviews were often delayed. 


The main reason for rejecting ads, as you will see from the analysis 
below, is that at least four "major" advertisers are required just to 
break even, postage rates being what they are. We think the rates 
proposed below will attract enough advertisers, especially since a one- 
time ad will have “multiple-exposure” in a newsletter in which back 
issues are regularly reread. 


We feel that advertising conveys useful information to the using 
community, and is actually an added service, provided that the editorial 
content is not diluted, and that the product advertised is indeed 
worthwhile. We will therefore begin accepting advertising for 
publication with future issues. The rates and the analysis leading to 
these rates follows: 


Our present mailings come right up to the two ounce limit; any 
additional material would require additional postage. Paying for one 
additional ounce of postage would permit the mailing of up to six 
additional sheets of printed matter. Our added mailing cost per issue 
would consist of domestic first class postage for one additional ounce 
($9.17) to approximately 1999 subscribers, and overseas airmail/printed 
matter postage for one additional ounce ($9.36 — $G.46) to approximately 
3@@ subscribers. This works out to about $39@ whether we insert a 
half-sheet or six full sheets; never mind the cost of labor for the 
added folding and stuffing! 


Beginning with Issue No. 11 (Vol. 3, No. 1) we will handle advertising 
on the following basis: We will accept "“ready-to-stuff" 8 1/2 x 11 inch 
sheets of printed matter, and insert them in the mailing envelope with 
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SYM-PHYSIS, which will retain its present format and size. The rate 
will be $125 per sheet. We reserve the right to delay publication until 
multiples of four to six sheets may be mailed with each issue (if only 
four sheets of advertising material are available we further reserve the 
right to publish up to two more sheets, i. e., eight more pages, of SYM-— 
PHYSIS, in their place!). We will also accept camera-ready 8 1/2 x 11 
inch pages to be reduced to 5 1/2 x 8 1/2 inches and "batched" with 
three others on a single sheet, to be printed (by us) in SYM-PHYSIS 
format. The rate will be $59.99 per page. We reserve the right to de— 
lay publication until four such pages are available for batching. 


We will still continue to publish PRODUCT RECOMMENDATIONS, where 
warranted, in the following format. 


PRODUCT RECOMMENDATIONS 


NOTE: There is neither enough time nor space left in this issue to do 
justice to the product lines of the following three sources, all of whom 
have enquired about advertising rates, sort of "forcing" us into making 
our decision re accepting advertising. It is very likely that one or 
more of them will be advertising their wares in the next issue, but if 
you need additional information before then, please contact them di- 
rectly. Until the next issue, then, the following brief reviews are the 
best we can do: 


COLUMBUS INSTRUMENTS 


Columbus Instruments International Corporation, 996 N. Hague Ave., Co- 
lumbus, OH 43294, (614) 488-6176 (Dr. Jan Czekajewski), is primarily a 
manufacturer of bio-medical instrumentation, using the AIM-65 in their 
products. Their so-called Universal AIM-65 Interface Card, with 16 
channels of 12 bit (very high speed) A/D conversion, a battery backed-up 
calendar/clock, and a 16 K RAM/ROM expansion space, could just as well 
be called a Universal SYM-1 Interface Card! Only a single jumper need 
be added to the SYM-1i to fully utilize all of its capabilities. Even 
the BASIC program (written for the AIM) requires absolutely no 
modification for the SYM. 


The calendar/ciock, converters, and multiplexer are assigned addresses 
in the $9998 blicck. About the only difference is that the BASIC program 
will have to be keyed in "by hand” for the SYM, no big deal. We read 
their ads, asked to "borrow" a manual for review, and became dealers. 
There are at least two SYM users who are as impressed with the interface 
as we are, and we do not know of any other board as versatile. 


R. J. BRACHMAN ASSOCIATES, INC. 


R. J. Brachman Associates, Inc., P. O. Box 1977, Havertown, PA 19963- 
077, (215) 622-5495 (Dr. Michael "Mike" Brachman), recently introduced 
the MICROsport MicroComputer (MMC) in advertisements in several of the 
computer magazines. They enquired about advertising in SYM-Physis, and 
we offered to review the product instead. Mike sent us samples of the 
entire product line and piles of documentation. We will get around to 
actual testing after the newsletter is out, and will let you know the 
results in the next issue. Part of the review loan agreement included 
the stipulation that we communicate our findings back to RJB prior to 
publication or release of data. That’s fair enough. 


We might mention in passing, however, that we have an upcoming 
application where we will be wanting to program a large number of 2732 
EPROMs for the FDC-is, and we were hoping that the MMC’s EPROM 
Programming Adaptor (EPA) option would do the job. Unfortunately, while 
the EPA will program both TI 2516s and Intel 2716s with the software 
provided, and with minimal software changes will also program the TI 
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2532s, the Intel 2732s and the EPA are incompatible. If the EPA can be 
modified to handle 2732s, even at the cost of giving up the ability to 
handle 2716s, I’d buy that. Actually, we’re ordering a complete system 
anyway; we want to try developing a stand-alone dedicated process con- 
trol system. Pasted-up below are excerpts from the Product Description 
brochure: 


The MICROsport MicroComputer (MMC), in addition to being a complete microcomputer on a 4%” x 6%” pc 
board, is the nucleus of a full hardware/software development system. Software can be developed for the MMC 
using any 6502-based computer such as the KIM-1, AIM-65, SYM, Apple II, PET, Ohio Scientific and others. The 
InCircuit Emulator (ICE) permits full MMC software/hardware debugging,then adding the EPROM Programmer 
Adaptor, any single +5V EPROM such as the Intel-type 2716 or 2758 can be programmed without additional 
equipment or disconnecting the ICE/MMC. Of course any of these EPROM’s can be programmed using other 
equipment and still operate in the MMC. The MMC is the ideal dedicated controller for use in control/monitor 
systems, laboratory experiments, timing, intelligent interfaces, security systems, and other applications requiring 


a low cost controller. 
1/O . .2 MPS6522 VIAs for a total of: 


Features: 32 input/output lines, 
8 edge detector/control lines, 


CPU eo tesnais MPS6503, operating at 1 MHz. 4-16 bit timer/counter/pulse generators, 

RAM iseiesensce 1 Kbytes, static (MPS2 114). 2 shift registers, interrupt flag registers, and more. 
EPROM..... Socket for Intel-type 2716 or 2758. ® insercdefined ‘pine on 44 pin edge connector, 
Seriadlivcccccnn. 20 mA loop circuitry on-board. : 

Interrupts . . .Power-on and manual reset, non-maskable and maskable interrupts. 

Power «...< «:..3 +5V regulated or 9 - 20V unregulated AC or DC. 

AISOs. «cornice All ICs socketed for easy maintenance. 


LED power on indicator. 
Adlustor socket for expanded memory functions such as CMOS-RAM w/battery back-up. 


Options..... } : it Mi 
zero insertion force sockets (3); EPROM Programming Services; and application software develop- 
ment. 
Prices. ...... MMC/03D __— Development unit $149.00 


MMC/03A__— Application unit $1 19.00 


MMC/03S Complete development system including MMC/03D; MMC/03ICE; MMC/03EPA,; 


and software 
Kits available from $89.00. 


CGS MICROTECH 


CGRS Microtech, P. Q. Box 192, Langhorne, PA 19947, (215) 757-9284 
(Joseph T. Swope), sent us detailed information and operating manuals 
for the 65@2PDS PETDISK Disk Operating System. This system can be adap- 
ted to work with the SYM and would be worth investigating by SYM owners 
who have access to PETs, or would like to be able to swap software with 
PET owners. It is a quite good operating system. 


MISCELLANIA 

JOHN R. MC DANIEL, SSS7E Homestead Drive, Columbus, IN 47291, would like 
to communicate with others working with the Votrax SC-@1 speech 
synthesis chip. 


JEFF LAVIN, P. G. Box 1919, Whittier, CA 99699, sent us a batch of 
excellent CAI (Computer Assisted Instruction) programs in BASIC (we’ll 
try to get at least one of them printed in Issue No. 11). We discussed 
the idea of forming SIGs (Special Interest Groups) and he has offered to 
prepare the questionnaire for mailing with Issue No. 11, and to help 
process the returns. The idea is that if you want to get in touch with 
SYMmers living, say, in Ohio, who are using the ColorMate for generating 
animated cartoons, we can sort through the Special Interest DataBank and 
put you in touch with them. Jeff has prepared an excellent 
"Selectric/Microcomputer Interface Manual", printed on the IBM Selectric 
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In-Circuit Emulator; EPROM Programming Adaptor; MMC Development Model MMC/03D with 


he has interfaced to his SYM. This manual is the definitive source on 
the subject. Copies may be ordered from him for $19.96. Add $2.99 for 
postage North America, $4.99 elsewhere. 


JOHN BLALOCK, Blalock & Associates, P. O. Box 393556, Phoenix, AZ 85969, 
has been working on some really elegant hardware and software items 
which will become part of his expanding product line. One software 
product for which many SYMmers have been longing is now ready for 
release. This is his BAS-RAE/RAE-BAS transfer program, which allows 
BAS-1 programs to be written and edited in RAE-1! Drop him a self— 
addressed, stamped envelope for pricing information on this, and his 
other fine products. 


SOFTWARE DATABANK 

The following new programs, reviewed in Issue No. 9 are now available on 
cassette (RAE-1 Source Code format) with just enough hard copy documen— 
tation to get you started and over possible hurdles: 


Kwok’s Cross Reference Lister, XRF-1 95% "CERTIFIED" 
Thuring’s Structured Assembler Macros, MAC65 95% "CERTIFIED" 


A new disassembler program is now available which provides a table of 
definitions for all external addresses, and automatically generates .CT 
and cassette dump for extra long source codes, is now available. We 
have tested all but the .CT feature (we must first modify to permit dump 
and continue on disk). If you liked Hissink’s DISARAE, you will find 
this program even more loveable! Minimal hard copy, but beautifully 
commented source code, on cassette. 


Dessaintes’” Disassembler, DESDIS—-1 95% “CERTIFIED" 


Price for each of the above programs, and for all future programs of 
Similar utility, size, and complexity, is $36.99 postpaid anywhere. 


Not yet ready, with prices not yet set, but perhaps by next issue, are: 


Holt’s TECO, a "free-standing" Text Editor and Word Processor, fully 
compatible with DEC’s PDP-11 version. 

Kwok’s BASIC WORD PROCESSOR (BWP-1), a BAS-1 based word processor, for 
those without RAE-1, who cannot use SWP-1. 


Jack Brown has authorized us to "close-out" the present 16K SYM-FORTH 
Package at a $99.9@ price (Object Code Cassette, Reference Manual, and 
Source Code Listing). Purchasers of this package can then obtain from 
Saturn Software the expanded 79-Standard Version (requiring at least 24K 
of RAM) for an additional $59.99. 


Bob Peck has authorized us to reduce the price of the FBOK Appendix 
Cassette to $19.99. Because of its popularity, we will be stocking the 
First Book of KIM, a "must" for unexpanded SYMs; the games are really 
great if you have youngsters around. Price of the FBOK is $11.75 
postpaid US/Canada. Overseas add $3.99 for SURFACE mailing (weight is 
one pound). You also will need Peck’s FBOK Appendix and/or the Appendix 
Cassette. 


That’s it for now. We already have more than enough material and ideas 
on hand for Issue No. 113; actually this could have been a “double” 
issue! We’ll now “rest" a day or two, working out the details of our 
South Pacific trip. Next, we will spend about two weeks answering all 
of your accumulated letters, seeing what is on the pile of cassettes and 
disks still waiting for us, and rearranging the clutter of papers piled 
high around each SYM. Then, we’1ll start working on Vol. 3, No. i. You 
can expect the Jan/Feb/Mar issue to be in your hands by early April! 
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